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I. INTRODUCTION 


A. PURPOSE 
The purpose of this thesis was to design an executable computer program capable of 
determining the numbers required to design specified aspects of a geostationary 
communications satellite, that could be run on a standard home personal computer 
(PC) The program is based on Professor Brij N. Agrawal’s book "Design of 
Geosynchronous Spacecraft". The book describes all the steps necessary to design a 
geosynchronous communications Satellite. Because of time limitations, it was decided 
that the following areas of a Geostationary Communications Satellite would be 
completed on this portion of the project: 

@® Mass and Propellent Budget 

@ Electric Power 

@ Thermal Control 
Both Three-Axis and Dual Spin Stabilized satellite configurations are included in the 
program and provide design reports that can be printed at the user’s discretion. 
Appendix A is a short user’s manual of the computer program and Appendix B 


contains the different executable computer programs’ source code. 


B. BACKGROUND / CONCEPT 

The program came about through discussions with Professor Bnj N. Agrawal 
and space system students enrolled in his satellite design classes. The basis for the 
computer program is to aid the user in quickly determining useful and accurate 
numbers for a geostationary spacecraft design. Although not a tutorial, the program 
sequentially walks the user through the necessary steps to develop a Mass Propellent 
Budget, Photovoltaic Electric Power System, and Thermal Control System for either a 
three-axis or dual-spin stabilized geostationary communications satellite. The four 
executable programs will, with a small amount of preparation, allow the average user 
to develop the described areas of a geosynchronous satellite design in minutes. 
Where as by using a hand calculator, the same variable numbers and final results 


would take days or weeks to arrive at the same results. 


C. OPERATIONAL DESIGN PARAMETERS 

All parameters for the executable program used to design a spacecraft in this 
thesis are based on an orbiting geostationary communications satellite. Some velocity 
components for propellent usage and therefore mass budget are related to the transfer 
and parking orbits as well as orbit injection angles and delta velocities necessary to 
achieve and maintain geostationary orbits. The equations or components used are 
specifically applicable to a geostationary satellite and might be useful for others as 
well. The two most common satellite design types, three axis stabilized and dual-spin 


Stabilized, are used as a basis for program engineering and concept. 


1. Dual Spin Stabilization 
The dual spin configuration used for executable program design is a 
cylindrical shell with spacecraft power provided by solar cells surface mounted around 
the outer cylindrical area. The interior of the shell of the cylinder houses spacecraft 


electronics and propulsion devices. 
2. Three Axis Stabilization 
Three axis stabilized spacecraft will be based on a rectangular box shape. 
Power will be provided by sun tracking flat panel array(s). During parking orbit and 


operational orbit insertion, spin stabilization will be used. 


Il. MASS SUMMARY AND PROPELLENT BUDGET 
This chapter will step through the process of determining a equipment mass 


summary and a propellent weight budget. 


A. TRANSFER ORBIT 

For a Satellite to be useful it first must achieve its operational orbit. The 
spacecraft will progress through a series of different orbits before achieving its "final" 
working orbit. The sequence begins with the launch of the spacecraft from any of a 
variety of locations depending on payload type, mass, desired orbit inclination, including 
mission or launch window constraints. The satellite is released from the launch vehicle 
into a Low Earth Orbit (LEO) parking orbit where system checks are performed. The 
next phase is to put the Satellite into an elliptical transfer orbit in preparation for final 
insertion into operational orbit. 

There are a variety of "transfer" orbits that can be used for final insertion into 
operational orbit. The most common in-plane and fuel efficient transfer orbit for a 
geostationary spacecraft is a Hohman Transfer Orbit (HTO). The programs in Appendix 
B use HTO for velocity change requirements for the transfer orbit. After release from 
the launch vehicle the spacecraft enters a parking orbit where satellite systems are 
checked out in preparation for insertion into the final operational orbit. 

The first phase of a Hohman transfer is to fire the perigee kick motor (PKM). 


This places the spacecraft in an elliptical transfer orbit. After four or five transfer orbits 


the satellite completes system checkout, attitude determinations are finalized, and the 
apogee kick motor (AKM) fires. Geostationary orbit (GSO) is achieved by inserting 
the satellite into a circular orbit at a radius of approximately 42,160 kilometers and at 
a desired inclination (1) of zero degrees (equatorial orbit) for our design purposes. The 
spacecraft will then go through a series of re-orientations to finalize its operational orbit 


and mission altitude. (Wertz, 1991, p. 130 ) 


B. VELOCITY 

Velocity determination and certain delta velocities required to achieve the 
Operational orbit are vital to building propellent summaries. Other factors taken into 
consideration are the type of fuel used (relating to I,,) and the efficiencies of the separate 
orbit insertion and orbit maintenance activities. The efficiencies of the apogee kick 
motor AKM, PKM, station keeping, and de-orbit functions of the spacecraft must be 
known so that sufficient propellent, and propellent weight, is incorporated into spacecraft 
design. Margins for the propellent budget are also assimilated into the propellent budget 
as a safety factor even though the delta velocity equations provide very accurate figures 


with little error. All values determined are for a geostationary communication satellite. 


1. Geostationary Orbit 
In a perfect geostationary orbit the satellite will move around the earth’s 
equator synchronized with the rotation of the earth about the earth’s axis. The period 
(P) is equal to one sidereal day (23 hours, 56 minutes, 4.09 seconds), or from the rising 


of a star to the rising of the same star vice 24 hours or sunrise to sunrise. 


The radius for a geostationary orbit is determined via Keplar’s Law using 


a P of 86,164.09 seconds corresponding to one sidereal day and is given by 


2 
ys EO 2.1 
4*1? 


where p.= gravitational constant 398,601.2 km?*/(kg/s’) 
a = semi-major axis 


P’= period of the orbit in seconds 


The resulting orbital radius is 42,164.2 kilometers and is a pure circular orbit with zero 


eccentricity. 


Z, Satellite Drift 
Any deviation from the above ideal parameters will cause perturbations 
in the orbit. The gravitational forces of the sun and moon also act on the satellite to 
cause drift. Table 2.1 lists the average drift rate imposed on the satellite by the sun and 


moon. 


Table 2.1 SECULAR RATES FROM SUN AND MOON 


Effect of Moon Effect of Sun 
-0.00076 0.00034 













a. East - West Drift 
For a radius greater than (>) 42,164.2 kilometers the spacecraft’s 
orbital period is greater than 24 hours giving it the appearance of drifting westward 
with respect to the surface of the earth. Conversely, for an orbital radius of less than 
42,164.2 kilometers, the spacecraft’s orbital period is less than 24 hours, thus giving 
it the appearance of drifting eastward with respect to the surface of the earth. The 
incremental dnft rate of the longitudinal dnft with respect to an ideal geostationary 


orbit is: (Agrawal, pg 68, 1986) 


360°/day__-0.013°/day = 9 2.2 


3 A, 3 
ISS 9G Fe a i ea eae A tI 5 ti ae 
a. 2 42,164.2km 42,164.2km 
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The east - west motion for an inclined circular orbit is usually very small. This 


longitudinal dnft for a small i and 2» 1s: 


a=-4° ssin (2nt) BO D2 


So for small inclinations, latitude oscillation is predominate. This can be easily seen 
in Figure 2.1. The effects of the sun and moon can be seen in Table 2.1. For an 


elliptic equatorial orbit with inclination (1=0) the amplitude is 
AX =? *eEe EQ a4 


Therefore, east - west oscillation predominates. 


Equatorial 
plane 





Figure 2.1 Geosynchronous Orbit (#0) 


b. North South Drift 
An inclined geostationary orbit with correct radius will tend to 
oscillate mainly in latitude with respect to the surface of the earth. The. amount of 
oscillation depends on the inclination and the drift rate. The motion or path of the drift 


resembles a figure eight (8 ). See figure 2.1. (Agrawal, p. 88, 1986) 


C. Gravitational Effects of Sun and Moon 
The gravitational forces of the sun and moon cause secular 
variations in the orbital elements of a geostationary satellite. These variations have the 
largest effect on right ascension of the ascending node and the argument of perigee. For 


nearly circular orbits (one aspect of an ideal geostationary orbit) e = 0 and the 


resulting error is on the order of e’. So the equations for the rates of change from the 


sun and moon are (Wertz, p. 125, 1991): 


Qpoon=-0 00138 S08 (2) EQ 2.5 
Qeun=-0 00154 * SOS (2) EQ 2.6 
@ noon= 70 - 00169 * (4-5*sin? (7) ) EQ), 
Pro eee) EQ 2.8 
where, 1 = inclination 


n = orbit revolutions per day 

For a geostationary orbit, the total longitudinal drift acceleration 
X is obtained by averaging the drift acceleration over the orbital period. Since the sun 
for Our purposes is an inertially fixed reference point it contributes less than one degree 
of drift per day. So for a circular orbit the velocity remains constant. Therefore the 
main contributor to longitudinal perturbations is not the sun or moon but the earth’s 
slightly elliptical shape. This ellipticity caused by what is known as the equatorial 
bulge changes the earths gravitational force preventing it from acting purely radial. This 
phenomenon creates two stable longitudes called Si and S2 (75°E and 255°E) and two 
unstable longitudes US1 and US2 where the gravitational forces are radial and the 
longitudinal drift acceleration is zero. Drift will occur whenever the Satellite is not at 


one of these points. For example, if a satellite longitude is between S1 and US1, the 


lateral force component is along the velocity and this results in a negative longitude 
acceleration as shown in EQ 2.9. So whenever is near US1 or US2 it will migrate 


towards the stable longitudes S1 or S2 whichever is closest. (Agrawal, p. 83, 1986) 


L=-0.0168¥*sim2(ApAe, 2) ooo ee EQ 2.9 
day? 


Taking into account only second order gravity effects the 
longitudinal drift acceleration is: 
where 
dX = longitudinal drift acceleration in degrees \ day’ 
= longitude of the satellite in degrees 


Astable= Stable longitude of 75°E or 255°E 


Cc VELOCITY DETERMINATION 
Variables from the program strategy that will begin our design are based on a 
geostationary orbit. First we will assume that some launch vehicle has inserted our 
spacecraft into a desired parking orbit. For a final GSO, a good parking orbit might be 
around 6600 kilometers. A parking orbit is a LEO orbit where satellite system checks 
are performed prior to the other phases of insertion into the final operational orbit (GSO 
operational orbit = 42,160 kilometers). 
1. Orbit Insertion Velocities 
For the design calculations and for the executable program in appendix B 
the following equations are used for velocity determination. First, to find the orbit radius 
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the program requests the values for radius at apogee (r,) and then the value for radius 


at perigee (rp) to find the semi-major axis (a). 
az tatte! EQ 2.10 
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The equations for transfer orbit velocity at apogee (V,,) and velocity 


transfer orbit velocity at perigee (V,,) are: 


} , 
Voarking = ee. aa 
Paice ter ta EQ 2.12 
i TatIp 
V..= Vee ee) BOQ 2.13 


Ca Cp 
J% 
A 


The in-plane velocity change required to transition from parking 


orbit to transfer orbit is: 


reaneter a Yeo V parking EQ 2.14 


and the mean velocity is given by: 


V = EQ 2.15 


The transfer orbit period is: 





T,=24n* 2 EQ 2.16 
And ultimately the desired synchronous orbit velocity is: 
eae EO 2 


e a 
a. Delta Velocity for Apogee Motor Firing 
To find the velocity change and insertion angle required to 
transition from a parking orbit to the final geostationary equatorial orbit used in the 
program, the orientation of the plane of orbit or inclination must be changed. Figure 2.2 
depicts this change. The components of the velocity necessary to achieve equatorial 
geostationary orbit can be found using the law of cosines. The insertion angle using this 


law 1S: 


V.,*S1in (1) 


% =arctan ———_______- 
V7 Vieeeeoe 1) 


EQ 2.18 


A Hohman Transfer Orbit (HTO) is utilized by the program to 
determine variable values. The HTO uses a two burn method for insertion into 
Geostationary orbit. This method is the most fuel efficient and is therefore highly 
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desirable to increase spacecraft life. Using HTO the AVelocity for insertion into 


operational orbit (AV,,) is: (Agrawal, p. 95, 1986) 


AV,.=/(V,,*5in (1) )7+(V,-V,,*cos (4) ) EQ 2.19 





Figure 2.2 Velocity Vector Diagram at Apogee Burn 


ae Delta Velocity Station Keeping 

The perturbing actions of the sun, moon, and earth’s equatorial bulge 
cause the orbit of a satellite to deviate from the ideal. Table 2.2 lists the different 
inclination drift rates. Orbital limits are kept within mission parameters by a process 
called station keeping. 

As discussed earlier, for inclination other than zero, drift will be primarily 
in latitude. Corrections used to keep the spacecraft within the proper operational 
latitudes is called north-south station keeping. Conversely a change in the ideal 


geostationary radius will cause a drift in longitude. Station keeping used to maintain the 
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Table 2.2 INCLINATION DRIFT RATES 


a l — (Dee) a roe res | 
23.135 


2 260. 260.526 13.023 023 Q. 10.565 0.834 
12000} 125.177 | e257 | 20. 888 11.875 Uys 722 





longitude within operational parameters is called longitudinal or east-west station keeping. 
geostationary radius will cause a drift in longitude. Station keeping used to maintain the 


longitude within operational parameters is called longitudinal or east-west station keeping. 


a. North-South Station Keeping 
For a geostationary orbit finding the average inclination drift rate 
per year (ADPY), including the gravitational effects of the sun, moon, and inclination 
of the orbit parameters, is found by adding the published yearly drift rates (Table 2.2) 
during the satellites proposed life and dividing by the spacecraft life. The average time 


between north-south station keeping is: 


2%4 
Tasé rae *365.25days EQ 2.20 





where i,, = inclination tolerance 
Ts = time spent in north-south station-keeping 


The total number of maneuvers (Noancauvers) fOF a given inclination tolerance (io) 
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during the spacecraft life (SL) in years 1s: 


N ADP Yom 


maneauvers | 2%] 
tol 


EQ ZZ! 


North-south station keeping is necessary whenever the latitude or inclination drift exceed 
mission limits. (Wertz, p. 139, 1991) 


For north-south drift, the worst case AV is 


) kilometers) EQ 292 


A V=6 .148*sin(i,., second 


The contribution of the sun and moon to yearly drift are 


A V,.oon=202.67*cOs (a) *Sin(@) EQ 2.23A 
A Vo.y740.17 *cos (y) *sin(y) EO 2,738 
where a = angle between the orbital satellite plane and the moons orbital plane 


angle between the satellite orbital plane and plane of the eclipticg20 


=> 
| 


b. North-South Drift 
Table 2.3 (Agrawal, 1986, p. 88) gives the average AV required 
for a north south station keeping maneuver, and the time interval between maneuvers for 


several inclination limits. (Agrawal, 1986, p. 87) 
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Table 2.3 INCLINATION STATION KEEPING 


Inclinations A V per Average Time 
Limit (degrees) Maneuver (m/s) Between Maneuvers 
(days) 





c. Longitudinal Station Keeping 
It is realistic to consider only second order effects of the sun and moon 
on satellite perturbations. In relation to the earth’s equatorial bulge, higher order effects 
are negligible. Table 2.4 lists some AV’s for different longitudinal tolerances. The 
longitudinal drift caused by the earth’s equatorial bulge is added to these effects giving 


the longitudinal drift rate. Figure 2.3 illustrates these longitudinal drift oscillations. 
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West Limit 


A East Limit 


Do —AA Ao +AA 





Figure 2.3 Longitudinal Station Keeping 


The satellite drift rate is given by 
= 
A =2*(A*AR) 2 EQ 2.24 


Where Ar = allowable longitudinal deviation 
d, = drift rate when correction is applied (see Figure 2.3) 
h = longitudinal drift acceleration 


The time interval between east-west maneuvers 1S 


) 3 EG) 25 





where Ty = time Spent in east-west station keeping 
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Table 2.4 LONGITUDE STATION KEEPING 


Minimum Time 
Interval Between 
Maneuvers (days) 





The velocity change required per year is 


A Vieearas OG 1 .74*sin(2* Doo T srt ) EQ 2.26 


where T = time interval between ro and - de Secesilure 2-3. 
Drift acceleration due to the moon is periodic with an approximately 13.6 day 
cycle. So for all but small longitude tolerances its effects can be neglected. Table 2.4 


gives some example AV’s for different longitude tolerances. (Agrawal, 1986, pp. 89-90) 


d. Station Repositioning 
At times a Satellite may need to move from one station to another this 
maneuver is called station repositioning. This maneuver is accomplished via two 


Separate velocity changes. The first maneuver uses a velocity change to impart motion 
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in the desired direction, this puts the spacecraft into a slightly elliptic transfer orbit. 
When the spacecraft nears the desired longitude another velocity change maneuver of 
equal magnitude but in the opposite direction acts to put the satellite back into a circular 
synchronous orbit at the new operating longitude. The velocity change (and therefore 
the fuel required) depends on the amount of time allowed to complete the station change 


maneuver. 


Aj-A4 EQ 2.27 


where A\ = required drift rate 


Ad 


longitudinal degrees to be moved 


n numbers of days allowed for movement 


The first velocity change required for station repositioning 1s: 


Av=2.83+A4=2.83+54 EQ 2.28 


So the total velocity change (AVyor,; ) for starting and stopping the station change is: 


A Viryrap=2*A V=5.66+—4 EQ 2.29 


e. De-Orbit 
After a geostationary satellite has finished its useful life it should be "de- 


orbited" or boosted into a benign orbit to prevent collisions with future active payloads. 


i9 


Boosting a geostationary satellite into a benign orbit is the most economically feasible 
method of disposal. The program in appendix B uses a mass ratio based on a reference 


satellite to determine the approximate fuel required to de-orbit the satellite. 


D. MASS PROPELLENT BUDGET 

Now that all velocities have been determined and knowing the spacecraft weight 
and power requirements the weight of the satellite propellent, structural, operational and 
power systems can be estimated. The propellent budget is made up of four categories: 

1) Velocity Control Propellent 

2) Attitude Control Propellent 

3) Propellent Margin 

4) Residual 

Attitude control propellent is used for attitude control during AV thrusting, spin 
Stabilization, maneuvering while spinning, counter disturbance torques, attitude 
maneuvering and limit cycling (or oscillation). Propellent margin is a percentage of the 
propellent requirement and residual is what fuel is left that cannot be used. 


(Wertz, 1991, p. 262) 


1.  Propellent Mass 
Assuming the mass of the spacecraft is known the satellite propellent mass 


is: (Agrawal, 1986, p. 45) 
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ys 





M,=M,*(1-exp 29) EO 2,30 
where Mp = Mass of the Propellent in Kilograms 
M; = Initial Mass of the Spacecraft 


AV = Required Velocity Change to get in operational orbit - m/s 
I = Specific Impulse of the Fuel 


2 = gravity 9.81 m/s’ 


NOTE: The higher the specific impulse (I,,) the lower the amount of fuel necessary 


to complete satellite mission requirements. 


2. Design References 
For initial determination of the total fuel requirements, this program 
develops a mass propellent budget by referencing a known communications satellite 
with a similar design. The design satellite mass is divided by the reference satellite 


mass to give a mass ratio (MR), which is used for subsequent calculations. 


= E519" spacecrattmass _ EQ 2.31 
lege CNC spacecraftMass 


The next step is to look up the adaptor mass for the launch vehicle our 
design satellite 1s using in the applicable launch vehicle users manual. The adaptor 


mass is then subtracted from the initial spacecraft mass (M,, sasptor) to find mass of the 


2) 


spacecraft before apogee burn (M;), Equation 2.34, this is used to determine the 
propellent mass for the different mission control events. 


M,=M, 


i+adaptor “4SS adaptor EQ 2.32 
The final vanables required by the program are the efficiencies for north- 
south and east-west station keeping, station repositioning, de-orbit, and apogee 


injection plus orbit insertion. It is assumed in the executable program that apogee 


injection and orbit injection efficiencies are the same. 


E. MASS DETERMINATION 
The pre-amf mass (mass before apogee motor firing) programmed mass is 
initialized at seven kilograms and is multiplied by the MR (mass ratio) to find the pre- 


amf MASS for the design. 


Mp 


p 


o-amf=MR* Pre-AMF, EQ 2.33 


eference 


where Moe = Mass of spacecraft before apogee motor firing 
Pre-AMF peterence = Pre - AMF reference Mass 
The apogee motor firing mass (May) required to insert the spacecraft into its 


operational orbit is: 


AVer 


Tar*d ) EQ 2.34 





M awe M,* (1-exp 
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where le = fuel impulse for the apogee injection motor 


AVor = Delta velocity required for geostationary orbit transfer 


The Post-amf mass is the mass of fuel required for final despin and stabilization 
into an operational orbit. For this design, the program initializes the Post-AMF 


mass at 29.9 kilograms. 


Meena Re POSG AME BO 2) 


eference 


where Mpotamr = Spacecraft mass after apogee motor firing 


PIV» ecerenre = Reference spacecraft post apogee firing mass 


Final propellent mass requirements for the proposed design are determined 
by the level of perceived importance of the individual maneuvers during the spacecraft 
design life. For this design, the hierarchy is north-south then east-west station 


keeping, station repositioning, and finally de-orbit. 


a. Propellent Mass Station Keeping 
The propellant mass required for north-south station keeping during 


the spacecraft life is given by: 


My = (M, pi ari oe (1-exp Tsx*G* EFF ys \ 


EQ 2.36 
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where Mus north south station keeping mass 


Wine = AV required for NS station keeping 
ERE. = efficiency 
ee = station keeping specific impulse 


The propellant mass required for east-west station keeping during the 


spacecraft life is given by: 


AV ry 


BesGt Ere EQ 2.37 
May= (M;-Maue-Mpre-amr~Mys) * (1-eXD os Q 


where Mey east west station keeping mass 


EFF py 


efficiency 


b. Propellent Mass Station Repositioning (M,,) 
The propellant mass required for station repositioning during the 


spacecraft life is given by: 


AVop 


Tin? 9* EFF gy, EQ 2.38 
Mon= (My —Myye Move aura yg attey lial eerie mare aula Q 


where Ne. = velocity changed required to reposition the spacecraft 


I Specific impulse of the fuel used to reposition the satellite 


ERE. efficiency of the repositioning maneuver 
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c. Propellent Mass De-orbit Control (Mp,) 


The propellant mass required for de-orbit for the spacecraft is: 


paegsrrre EO) 2.59 
Mpe= (Ms ~Maue-Mere-amp~ Mus~ Mew Mop) * (1-exD Joe*g* EFF pe Q 


where AVor = velocity changed required to de-orbit the spacecraft 
lor = Specific impulse of the fuel used to de-orbit the satellite 
EFFp, = efficiency of the deorbit maneuver 


d. Pressurant Mass (Mp,) 
The pressurant mass is calculated as the MR multiplied by the 


reference satellite pressurant mass. 
Mpp=MR*Mop_ pep EQ 2.40 
where Morrree = Mass of the pressurant in the reference satellite 


e. Mass Margin (M,)) 
The propellent mass margin (M,,) is the one to two percent safety 


margin is 10% of the spacecraft dry mass. 


My= (Mp, e-amet Mpost-amr* MystMewtMpetMpp*+ Mop) #0. 02 EQ 2.41 


2) 


f. Total Propellent Expenditure (M>,) 
The total mass of propellent expenditure (Mp;) including apogee 


injection requirements, with a 2% safety margin 1s: 


eg nO Hae EQ 2.42 


The dry mass of the unified bi-propellant propulsion Myg which 
combines the functions of apogee injection, attitude control, and station keeping is: 


(Agrawal, 1986, p.46) 


MC ee EQ 2.43 


where Cyzg = 0.084 for three axis stabilized 
= 0.054 for dual-spin stabilized 


To find the total propulsion system mass add Mpg and My, together 


F. MASS REQUIREMENTS FOR SATELLITE COMPONENTS 
1. Structural Mass (M,,) 
The mass of the spacecraft structure can only be determined accurately 
after the final spacecraft configuration and preliminary structural design are 
completed. However this is usually late in the design process. For a good estimation 


based on our reference satellite use: (Agrawal, 1986, p. 48) 
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Mee Con * i, EQ 2.44 


where Mor = Structural mass in kilograms 
Cor = 0.087 for three axis stabilized 


= (0.097 for dual-spin stabilized 


2. Thermal Control Equipment Mass (M,,,;) 
For the program the initial thermal dissipation requirement is unknown. 
To estimate thermal control mass first we determine the spacecraft beginning of life 


mass (Mggo,) which is: (Agrawal, 1986, p. 48) 


Msp =f; — Mpre-amr Mame Mpost-amr Mapapror EQ 2.45 


Once Mgjyo, 18 found, we can use the following equation to find My: 
Me Con * Mono EQ 2.46 
where Cae = 0.032 for three axis stabilized 
= (0.027 for dual-spin stabilized (Agrawal, 1986, pp. 48-52) 


3. Attitude Control System Mass (M,¢) 
The mass for a spacecraft attitude control system depends on many 


variables. These variables are attitude control, attitude accuracy, amount of 


oT 


redundant safety features, and the size and mass of the spacecraft. For initial 
estimation purposes for a three axis stabilized system the program uses: 


(Agrawal, 1986, p. 49) 


M, .=65 +0022) (14_,,,-700) EQ 2.47 


and for a dual spin stabilized system initial estimate is: 


M,-=31+0 . 027 * (Mono, -700) EQ 2.48 


4. Electrical (M,) and Mechanical System Mass (M,,) 
The program in appendix B uses the following electrical and mechanical 
extrapolations from Agrawal’s book "Design of Geosynchronous Spacecraft". 


Mg, is given by: (Agrawal, 1986, p. 52) 


M,=0.039 *Menor EQ 2.49 


and M,, 1s given by: 


M,=0.014*Mopoy EQ 2.50 
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5. Mass Margin (Magarin) 
The mass margin is 10% of the spacecraft dry mass (My, for a unified 


bi -propellent system). 


Mory— M4; —M adaptor “pr EQ 2.51 
Mya rgin=Mpry*9 » 10 EO 52 


6. Propellent Pressurant Mass (Mp,) 
That portion of the propellent tank that pressurizes the fuel tank to 


maintain fuel flow on demand is: (Agrawal, 1986, p. 53) 


pp ideealtaie EOiz Ss} 


7. Electric Power System Mass (M,,) 

The program in appendix B determines the mass of the electric power 
system based on a reference satellite and design spacecraft power requirements. For 
the purposes of this design we will assume: 

1) 10% margin for the solar array 
2) 5% margin for the equipment 
3) | NiH, batteries with spacecraft fully operational during eclipse. 
Also the program and design will use the Mass Ratio and the housekeeping power of 


the reference satellite Pix rep to find satellite housekeeping power (P,,). 


Zo 


a. Housekeeping Power (P,) 
ae EO 2.54 


Using Py, and the required payload power the battery power load (P,,) with 5% 


equipment margin is: 
P= (Ppayroapt Pyx) *1.05 EQ 2.55 
and the solar array load (Ps,) with 10% margin 1s: 


P.,= (Pavitt EQ 2.56 


where PpayLoap = Satellite payload power needed in watts 


The electrical power system mass is dependent on the power system 
design. The weights for solar array, charge array, shunt, charge control, battery, 
and discharge regulator vary between a partially regulated DC bus and a fully 
regulated DC bus with the later being slightly larger and therefore heavier overall. 
The total electrical subsystem mass is also greater for higher power requirements and 


for dual-spin stabilized spacecraft. (Agrawal, 1986, p. 373) 
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Therefore depending on the spacecraft power requirements and 


Stabilization methods the total mass of the electrical power subsystem is: 


Mp =(1.05* ( Ppayioagt Pur) 


ee ate Mot M -M_ 7 -M..) ) *0.001 EOrZ.5 7 

where Ppayicad = Payload power 

Ive = Solar Array Mass 

Per = Solar Array Power 

Mer = Charge Array Mass 

M, = Shunt Mass 

Mec = Charge Control Mass 

Meat = Battery Mass 

Moyer = Discharge Regulator Mass 


8. Communications Package Mass (M_-,p) 
The communications package is basically the initial spacecraft mass (M;) 


minus all the other initial design masses and is given by: 


Mop=M;-Magaptor Ms~Mru-M pr 
Mac Mg My Mer “Margin -A Mpost-amr “pp EQ 2.58 
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9. Tracking Telemetry Reference (M,,) 


The mass of tracking telemetry reference is based on MR and 1s given by: 


My7=MR*M or pop EQ 2.59 


a2 


Ii. ELECTRIC POWER 


A. INTRODUCTION 

The electric power system provides power to the spacecraft during all phases of 
its life from liftoff to de-orbit. For this phase of the satellite design use a 
geostationary communications satellite using traveling wave tubes (TWT’s) or radio 
frequency (RF) amplifiers for power transmission of RF energy. Normally, over 
80% of the total satellite system power 1s used by the communications payload. The 


power remaining is required for spacecraft housekeeping duties. 


B. POWER SYSTEM DESIGN 

For this design the primary power for spacecraft systems is derived from solar 
cells. During non-eclipse periods power is provided by solar arrays which convert 
solar energy via photovoltaic conversion to electric power. A non-eclipse period 1s 
when the suns light is shining on the solar cells, an eclipse period 1s when the sun’s 
rays are not available, for example when a satellite is behind the earth. For eclipse 
periods, a maximum of 1.2 hours for GSO, power is provided via batteries. The 
batteries for a standard GSO communications satellite normally are required to 


provide only partial power during eclipse periods. 
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The electric power system consists of three parts, the solar array, batteries, and 
power control electronics. This design and the program in Appendix B concentrates 
on the solar array development and battery requirements. The program 
in Appendix B will determine the solar cell and battery cell needs for any input load 


for a geostationary three axis or dual-spin stabilized satellite. 


1. Design Life Considerations 
Power system design begins with the electrical power loads for mission 

design at beginning of life (BOL) and end of life (EOL). Sometimes EOL power 
demands are reduced but still allow reduced operational capabilities. For our design 
and the executable program in Appendix B, we will assume that the satellite mission 
requires full operational capability for the design life of the spacecraft, or until 
satellite EOL. Power control electronics and solar panel design will control the 
smooth operation of the power supply to the payload throughout the life of the 


spacecraft. 


2. Design Spectrum 
The program and this design will support the total communications 
payload and whatever load reduced or full, required during eclipse. Sometimes, load 
requirements for a broadcasting communications payload during eclipse are lower than 
full power; however, for military payloads and commercial satellites near continuous 


full power operation may be a design element. Our design will account for both 
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spectrums of payload power criteria. The required power during eclipse will be a 
percentage (percent_partial power) of full bus power. Power control electronics will 
regulate the spacecraft bus voltage and charge rates but will not be addressed in any 


detail in this design. 


C. BATTERIES 

Battery requirements are based on payload power criteria. The design standards 
for the solar array will hinge on the battery depth of discharge (DOD) and ampere 
hour (AH) needs during eclipse loading. Also during the launch cycle batteries 
provide the power for housekeeping functions until the spacecraft is in an operational 
configuration. The solar arrays during the transfer orbit and while in the parking 
orbit will supply only intermittent power to the satellite, hence the batteries must 


make up any difference in load requirements. 


1. Energy Storage 
All spacecraft that use solar cells for power need some system for energy 
storage to use during eclipse and peak power demands. Although there are many 
designs for energy storage, like fuel cells and flywheels, batteries will be used in this 
design because they are reliable, economical, and a proven technology. Batteries tend 


to provide stable power for the different operating conditions of a spacecraft’s life. 
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(Agrawal, 1986, p. 356) Nickel Hydrogen batteries will be used in the design and 


for the executable program in Appendix B. 


2. Battery Charging 
After the batteries have been used to supply the payload requirements 
during the parking orbit, transfer orbit, satellite configuration finalization, or eclipse 
the batteries must be re-charged. This is accomplished through a charge array located 
on the spacecraft solar panels. The design of the charge array depends on the needed 
loading during the satellite eclipse period. The batteries normally have more than 


enough time to recharge before the next eclipse cycle. 
3. Battery Requirements 


a. Known Vanables 
Table 3.1 contains the required variables and initialized values for 
the following calculations. In determining the satellite payload and housekeeping 
power requirements from calculations in Chapter II, we have the criteria needed to 


find the battery cell standards. 


b. Number of Buses 
Normally spacecraft have two buses, each supplying half the total 
power to the spacecraft loads. This design provides for additional reliability and 


prevents a single point fault from shutting down the spacecraft and thus allows for 
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some graceful degradation in case of a fault in one of the buses. The program in 
Appendix B allows for single to multiple bus designs, but favors dual bus 
configurations. 


Table 3.1 VARIABLE NAMES AND SYMBOLS 


Sa 
| Design Satelite Bus Voluge | 4.0 | 50.0 
EOL Battery Discharge Voluze ||| Veo 
[Depth of Discharge | ass | oss | OD 
[Maximum Charge Voltwge | | LV 
Sos Setes commie Dinke J _y_{_3_{_wa 


Charge Discharge Voltage Dror ee 


Charge Discharge Efficiency 
Battery 






Variable Name 


















on 


c. Number of Battery Cells 
The number of battery cells (N) needed to maintain a stated minimum 
discharge bus voltage (Vp,) iS determined via manipulation of equation 3.1. 
The power, voltage times current, required by the bus will be all or part of the total 
power, for example if the total power required is 1000 watts and the spacecraft has 
two buses then each bus requires 500 watts of power. Therefore batteries for each 
bus must provide this power for the maximum eclipse time of 1.2 hours for a GSO 


orbit. 
Von= (N-1) *Vp-Vap EQ 3.1 
therefore N is 


= Vopt Vp +1 


Vp 


EQ": 2 
then round N up to the next higher integer and using this new value find the new 


minimum discharge bus voltage Vpp. 


d. Minimum Discharge Bus Voltage (Vp,) 
For electrical equipment to operate correctly a minimum voltage Vp, 


must be available and is given by: 


Von= (N-1) *V,-Vop EQ 3.3 
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e. Battery Cell Ampere Hours 
The battery cell ampere hour (CELL,,,) requirement is the number of 
ampere hours needed to supply the satellite during eclipse and is determined from the 


following equation: 


Por 





*T rc 
a Naess os EQ 3.4 
a 
Vip * DOD 
where Npuses = number of buses 
Tre = maximum time in eclipse 
Paus = power in watts per bus 
DOD = depth of discharge 
and the bus power (Pxys) requirements are: 
p= TOTAL EQ 3.5 
BU 
2 Neuses 


f. Maximum Battery Charge Voltage 
The maximum battery charge voltage (V,-) assuming an open circuit 


failure of one battery cell is: 


Vac® Vunct (N-1) +Nen* Ven EQ 3.6 


ao 


where V upc = allowable battery charge voltage 
No = number of series connected diodes 
Vep = voltage drop across each series connected diode 


g. Bus Voltage Allowable Deviation 
Usually the bus voltage Vzys 1s allowed to vary within prescribed 
limits of = *0.5 volts. This value is called the bus voltage allowable deviation 


(Vprv) and it allows us to calculate(V,ys,,) the lower limit of bus voltage which is: 


es EQ 3.7 


Veusiti= Vaus~ 


h. Voltage Charge Array 
The required boost voltage needed by the charge array (Vc,) 1S given 


by: 


EGR 
Vea Vac” Vaus* Veo 
1. Seasonal Currents 
Design parameters for the program in Appendix B provides for a 
charge current to be applied to each bus as a percentage of the number of buses. For 
one bus it would be a 100% duty cycle. For two buses, the charge current would be 


applied to each bus on a 50% duty cycle. 
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The charge rate current for autumnal equinox Igguox IS given by: 


AGL 
LT pournox® —s EQ 3.3 
LS 
and for the summer solstice current Igo; sticg it 1S: 
Grins 
Pconsnice "qe EQ 3.10 


Battery cells, in this design, charge at a high rate to return the energy depleted during 


eclipse to each battery. 


J. Battery Recharge Power 


The power needed to recharge the batteries at equinox (P,,) is: 
Pro=Vac* 1 cournox EQ 3.11 
and the power needed to recharge at solstice (P.-) 1S 


EQ mer 


Poco=Vgc*Lsorstice 


k. Longest Battery Recharge Time 


The time to fully recharge the batteries (Trecuarce) 1S: 


Par 





*T 
[Pe ea EQ 3.13 


je = 
RECHARGE D 7) 
EC™ CD 


4] 


The batteries will remain on trickle charge for the remainder of the non-eclipse 


period. 


D. SOLAR ARRAY DESIGN LOAD 
The solar array design load is the summation of the equipment load and the 
power required for charging the batteries. Taking the 10% design margin into 


account the solar array design load at equinox (Psaregu) 1S: 

Sy nnaome |Past ge) lt EQ 3.14 
and the solar array design load at solstice (Psarsoz) 1S: 

I onvigen = 2 sai ia EQ 3.15 


This design process and the program in Appendix B will split the loads among the 
buses if there is more than one. The solar arrays are assumed to operate at the 


maximum power point of the solar cell "IV" curve at the spacecraft EOL. 


E. SOLAR CELLS 

The total load on the solar array will be the summation of the equipment load 
and the power required for charging the batteries. Generally, and for this design and 
the program in Appendix B, a 10% design margin is used to take into account the 
uncertainty in the degradation due to radiation and other design factors of the solar 


array. Equations 3.14 and 3.15 account for this design margin. The next step is to 
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determine the total number of solar cells needed to meet all of the mission 


requirements including all previous assumptions. 


1. Cell Variables 


The following variables listed in Table 3.2 and Table 3.3 variables for the 


particular solar cell used need to be known to begin solar array power system design. 


Table 3.2 SOLAR CELL VARIABLES FOR I AND CELL DIMENSIONS 


n-ne . 
—~ = — 


VARIABLE SYMBOL 


Cell Width 
Cell Length 
Cell Thickness 


Solar Intensity 


Assembly Losses Current 


Environmental Degradation in r 
Current 


Solar Intensity Factor including Ks 
Incidence Angle 


|| Temperature Coefficient for Curren 





Solar Maximum Power Point EOL | J 
Summer Solstice 


Solar Cell Current BOL 
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Table 3.3 SOLAR CELL VARIABLES VOLTAGE AND ILLUMINATION 


Ma 
VARIABLE SYMBOL 

| Panel Wiring Loss per Cell 

Solar Cell Voltage at Maximum Ay 

Power Point, BOL 

Radiation Degradation Factor for Ko 

Voltage 


Solar Cell Voltage at EOL 
Solar Cell Voltage at Maximum We. 

Power Point, BOL 

Operating Temperature 


EFFECTIVE ILLUMINATION 
Sun Tracking Flat Panel ; l 


Dual Spin Surface Mounted 









a4 


2. Parallel Solar Cells (N,) 
Using the variable values from Tables 3.2 and 3.3 and taking the design 
factors into account, the solar cell current (I) at EOL summer Solstice (T = 39°C) 
iS: 


Tce tend) eek ke Ce EQ 3.16 


The total current (I;) per bus or wing is: 


JE 
pipe Ee Gyo |y 
Veus 


This gives us the total number of solar cells needed 1n parallel (N,) for each wing 


which is: 


woes EQ 3.18 
The number for N> 1s then ratsed to the next higher integer number value. 
For example, 51.135 would be raised to 52 for future calculations using Np, to give 


the total N, for that array or bus. Obviously, the more parallel strings of solar cells 


the more current is supplied to the satellite bus. 
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3. Series Solar Cells (Ng) 
To find the number of solar cells in series necessary to supply the required 
bus voltage (Vpys) we first determine the solar cell voltage (V) at EOL summer 


solstice, which is given by: 
V=((V,,-AV+G,* (TT ,) ) *K"; EQ 3.19 


The number of solar cells in series (Ng) needed to supply this voltage, taking into 
account the voltage drop in the bus (Vyys prop), and the voltage drops in the spacecraft 


wiring harness (Vy) and slip rings (Vg, ), is: 


N= Vaust Vaus-prop* Vorop-wut Vprop-sr EQ 3.20 
V 


Like N, , Ng is raised to the next higher integer value. 


4. Solar Cell Current and Voltage EOL Equinox 
At EOL autumnal equinox the solar cell current Igg and voltage Veg are 
given by equations 3.16 and 3.19 respectively, except with T = temperature at 


equinox (= 49°C). 
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F. CHARGE ARRAY DESIGN 
The charge array supplies the boost voltage necessary to recharge the spacecraft 


batteries after eclipse. 
Series Solar Cells Charge Array (N,) 


1. 
The number of series solar cells (N,) required to supply the needed boost 


voltage is 


EQ 3.21 


where the voltage (V) is the voltage at solstice 
2. Parallel Solar Cells Charge Array Solstice (Ng<,-) 
The number of solar cells needed in parallel for the charge array during 


summer solstice (Ngsc) 1S 
CEP Lan EQ 3.22 


Scorn ——s 
tL soLSTICE 


and for equinox the solar cells required in parallel (Nggc) 1S 


Ce cean EOS3 


—<—S 
I EQUINOX 


So the charge array would require N¢ solar cells in series and Nec cells in parallel 


for summer solstice battery charging, and N- solar cells in series and Negc Cells in 
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parallel for autumnal equinox battery charging. For a spin stabilized spacecraft the 
solar cell requirements would have to be multiplied by a factor of # to account for 


the lower illumination factor. 
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IV. THERMAL CONTROL 


A. BACKGROUND 

Spacecraft in all orbits must dissipate heat. Heat can be absorbed from 
sunlight, reflected sunlight, and planet emitted radiation. (Agrawal, 1986, p. 280) 
Heat is also generated within the satellite by communication transmitters, batteries, 
control elements in the power system, the payload, and when apogee kick motors or 
engines are fired, heat is radiated from their components. (Wertz, 1991, p. 370) 

A thermal control system must maintain equipment within an allowable 
temperature range for optimum operational capability while maintaining an 
economical design. Spacecraft electronics usually have temperature limits between 
O°C and 40°C, while batteries will have limits between O°C and 20°C. Silicon solar 
cells operate between + 100°C and -100°C, but operate most efficiently at the lower 
end of this range. (Wertz, 1991, p. 370) 

The thermal control system acts upon and is acted upon by almost every other 
spacecraft system while maintaining the spacecraft systems within their operational 
temperature parameters. This is especially true of the spacecraft power system 
because the thermal control system must dissipate all its excess energy and radiate this 


energy to space. 
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Though there are many types of thermal control systems from passive and semi- 
passive to active; this design will use passive techniques. Passive systems have no 
moving parts or heaters and rely on paints, second surface mirrors, multi-layer 
insulation, phase changing devices, and radiation or conduction to space radiators like 
optical solar reflectors (OSR). In addition, passive thermal control designs are 
usually lighter, cost less, and use less power than active control systems. 


(Wertz, 1991, p. 371) 
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B. THERMAL RADIATOR SIZING 


1. Variable Definitions 
Table 4.1 lists variable definitions and applicable numerical values. 


Table 4.1 VARIABLE DEFINITIONS AND VALUES 


——————— me 


SYMBOL \ NUMERIC 


VARIABLE DESCRIPTION AL VALUE | 


Thermal Dissipation [W] 













Emittance of Radiator 


€ 

Radiator Temperature 
Equilibrium Temperature 
Solar Array Diameter 
Radiator Height oye 

Solar Absorbtance EOL 
Solar Intensity Winter Solstice S \ 1397 [W/m’] 

Solar Intensity Summer Solstice S \ 1311 [W/m’] 

Solar Intensity Vernal Equinox S \ 1362 [W/m’] 


Solar Intensity Autumnal Equinox 

Solar Aspect at Winter Solstice 

Solar Aspect at Autumnal Equinox 

Stefan Boltzmann 
n 


Efficiency 


5] 


2. Thermal Dissipation (P) 

Thermal radiators are used to dissipate excess heat, the more heat that 
must be dissipated the greater the thermal radiator area required. For this design we 
will assume that the radiator is isothermal and will be sized for the greatest thermal 
dissipation required. The hottest time is at vernal equinox when the solar intensity 1s 
1362 W/m? with a solar aspect of 0°. The thermal dissipation (P) required of the 
thermal radiator(s) is based on the percentage of the payload power (Ppp) and the 
percentage of housekeeping power (P,,,) required to be dissipated as heat. The 


thermal dissipation is given by: 


Pe : ( Poaytoap* Pppt Pux* Py) EQ 4.) 


N RADIATING- FACES 


Where Pix = housekeeping power 
PrayLoaD = payload power 


NeapiaTING-FACEs = Number of thermal radiating faces 


3. Radiator Area 


Radiator area (A) for a three axis stabilized spacecraft. is given by 


ie 1s 


a ————— EQ 4.2 
€*0*T**n-a@.*S*sin (8) g 


ay 


For a dual spin stabilized spacecraft we find the radiator height (H,,p) 
and multiply it by the circumference of its cylindrical shell structure. The height of 


the radiator is 


P 
ae Pe 
a (D.,* (m*Q*E*T4 nN) ~ (a@5*S*COS (@) ) EQ 4.3 


C. EQUINOX TEMPERATURE 


1. Non Eclipse 
For design purposes and the program in Appendix B the temperature at 
equinox (Tgqunox) iS needed for both full and partial power requirements during 


equinox. Temperature after equinox in °K for a three axis stabilized spacecraft is: 


a 
: P 4 EQ 4.4 
LD eouINOX ( exo*xn*A 
Temperature after equinox in °K for a dual spin stabilized satellite is: 
+ 
P )4 EQ 4.5 


ie a 
EQUINOX 
Do, *Hpap*h *E*O *1*A 


To determine the temperature in °C subtract 273.15° from the values in 


equations 4.4 and 4.5. As stated earlier, the temperature range of the spacecraft 
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components (other than solar cells) should be kept between 0°-40°C. If a condition 
arises where this 1S not possible to keep the temperature within operational ranges 
passively, then auxiliary heaters will be required to prevent damage to the spacecraft 
components. 

If batteries are providing full power during eclipse, the radiator 
temperature will remain approximately the same during eclipse as during the non- 
eclipse period of equinox. (Agrawal, 1986, p. 284) 

2. Eclipse 

When batteries provide partial power (a variable is known as percent 

partial power (PCT>pp)), heat dissipation is a percentage of thermal dissipation (P) and 


the equilibrium temperature during equinox (Tggur) 1S 


re (POT eet? Gi EQ 4.6 
FQUIL €*xg*A 
and the time constant (7) for a three axis stabilized spacecraft is 


m*C 
C= aS eee EQ BG 
4*E€*O *A* Tourn 


where m = mass of the radiator plus mounted equipment. 
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For a dual spin stabilized spacecraft, the time constant (7) is: 


m*Cp 


jes EO 4.8 
4*e*o +1 *D.,*Hpan* Tourn 


D. RADIATOR TEMPERATURE AT END OF ECLIPSE 

To find the radiator temperature at the end of eclipse this design uses an 
iterative process. Knowing the maximum time for eclipse we can iterate repetitively 
through equation 4.9, which is known as the radiative cooling equation, guessing 
different temperatures until we get a time very close to our maximum eclipse time 
(Tr) of 1.2 hours (4320 seconds). We then bracket the maximum eclipse time of 72 
minutes, with a value close enough to 72 minutes to make the results accurate, (1.2 
hours or 4320 seconds) and interpolate to find the minimum temperature during 


eclipse. 


AB 4c=24 (cothe? ( 2EQUINOXy ~oot-1 ( TzouINOX y y EQ 4.9 


EQUIL EQUIL 


a) 


First we must find the constant "C" assuming t=O, where "C" is some constant. 


C=2* (coth7? ( TEQUINOX ) -cot7! ( TEQUINOX ) ) EQ 4.10 
EQUIL Trourt 


E. RADIATOR MINIMUM OPERATING TEMPERATURE 

Now it is desirable to determine the time needed for the radiator to reach it’s 
minimum operating temperature. First find we must the constant "C" for equation 
4.11 , known as the radiative heating equation,by assuming T,.=0, and substituting it 


into Equation 4.11. 


Tee 4022 * (tanh7? ( EQUINOX) ~pan-1 ( ZEQUINOX) EQ 4.11 
t EQUIL Trourt 
this gives us: 
C=2* (tanh-? (2 EQUINOX) ~pan-1 ( TeoumNoK y ) EQ 4.12 
EQUIL Pour 
where Trqunox = lowest temperature during equinox as iterated via 
eq. 4.10 
Trou = Equilibrium for the thermal dissipation (P) desired 
eclipse 
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To find the time needed to reach a desired radiator operating temperature (T,,)) 
we substitute the new after equinox temperature values and the time to reach T,,p is 


now given by 


t= (2* (tanh? (7 2QUzNOX) —pay-1 ( 7eouINOK))) cya = EO. 4.13 
EQUIL EQUIL 


where t = time to reach specified radiator operating temperature 


F. SOLAR ARRAY TEMPERATURE 


1. Variable Names and Definitions 
Table 4.2 lists the required variables and their symbolic representations 


for determining the solar array operating temperature. 


2. Solar Array Operating Temperature 
In a solar array only a fraction of the solar flux is converted into electric 
power by the solar cells thus reducing the heat of the array. This reduction in the 
solar absorbtance is called the effective solar absorbtance and it is a function of the 
average solar cell array absorptance, the packing factor, and the cell efficiency. 
The solar array operating temperature (Top) 18 calculated by first determining the 


effective solar absorbtance (as,) which is: (Agrawal,1986, p. 285) 


hop OF p*h EQ 4.14 


ai! 


Then the operating temperature for any season can be determined by 


substituting the appropriate solar intensity (S) and solar flux incidence angle (6) 


Table 4.2 VARIABLE NAMES AND DEFINITIONS 








SS —— ee 


VARIABLE / CONSTANTS SYMBOL 


Effective Solar Absorbtance 


n 
ies] 


Average Solar Cell Absorbtance 


R 


R 


Solar Cell Packing Factor 
Solar Cell Operating Efficiency 
Array Front Side Area 

Array Back Side Area 


Emittance of the Array Front Side 


Emittance of the Array Back Side 
Solar Intensity 


Stefan Boltzmann 


Angle of Incidence of Sunlight 
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V. CONCLUSION 


The executable programs and technical documentation devised by this thesis allow 
for the accurate and timely calculation of spacecraft design requirements. In addition, it 
enables the average user to have the time to explore the different phases of design in 
more detail. The programs in Appendix B expeditiously calculate the spacecraft mass 
propellent budget, spacecraft mass summary, solar power system design, and passive 
thermal control design for a geostationary communications satellite. The results are 
compiled in an ascii based text file that can be printed and available for user study. 

The Ada programming language was used due to its unique ability to write source 
code in plain english. The programs are written so that future developers with limited 
programming experience can understand the progress of the program and use it as a 
Starting point for future research. 

Future research and development is needed for computer based design in the 
following geosynchronous areas: 

@ Spacecraft Attitude Control Systems 


@ Spacecraft Structural Design 
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For low earth orbits (LEO) development is desired in: 
@ Spacecraft Mass Propellent Budgets 
@ Spacecraft Electric Power System Design 
@ Spacecraft Attitude Control 


@ Spacecraft Thermal Control Systems 
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APPENDIX A 


COMPUTER BASED SATELLITE DESIGN 


USERS MANUAL 


A. THERMAL 
1) To start the program type "THERMAL" at the dos prompt. 
2) The program will ask "Is your spacecraft spin stabilized". If it is answer 
with a Character ’Y’ if not answer with a character ’N’ 
3) Program will state design chosen 
a) "Spacecraft is Spin Stabilized" or 
b) "Spacecraft is Three Axis Stabilized" 
4) Program asks "What is your Spacecraft Mass" 
a) Enter Spacecraft Mass including the Adaptor Mass in kilograms. 
Example: "3000.0" 
5) | Program asks "Enter the POWER requirements of the Spacecraft in watts. 


Example: "2000.0" 
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6) Next the program asks you to chose a reference satellite from those listed 


1’ Intelsat V 
2’ Intelsat VI 
3° Intelsat VII 


4’ or to insert your own values. 
7) The program lists the calculated housekeeping power and asks if you want 
to change this value for future calculations. If you want to change it enter a 
character ’Y’ if not, depress a character ’N’. 
Program then lists the values for Payload Power and Housekeeping Power 
8) Program lists some default values for: 


n - efficiency 

a - solar aspect coefficient 

S - solar intensity solstice 

S - solar intensity equinox 

Traputor ~ radiator temperature 

EpapiaTor ~ radiator emissivity 

Tansotute - absolute zero 

Tecupse - eclipse time 

NaHerMAL EMITTING FAcEs ~ Number of thermal emitting faces 
MrapiaTor pLus EQUIPMENT ~ Mass Of radiator plus equipment 
Ppp - Percent partial power (percent of payload dissipated as heat) 


Cp - specific heat 


To change any of the listed values enter a character ’Y’ and then enter the number of 
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the value you wish to change. 

9) Next an informational screen is displayed that lists the different passive 
thermal control materials and there typical application. 

10) Program displays a screen that lets you pick the type of material to use for 
thermal control. Simply enter the integer of the material desired or enter "10" to 
enter your own values. Chosen values are then displayed. 

11) Program asks user to enter "Percent Payload Power that must be 
dissipated as heat" 

and to enter "Percent Housekeeping Power that must be dissipated as 
heat" 
Example: 33.4% would be entered as "0.334" 
Total required power dissipation is then displayed. 
12) Program asks user to enter "Solar Array Diameter in meters" if satellite is 
Dual Spin Stabilized Example "3.456" 
13) Program lists "Radiator Height" if satellite is Dual Spin Stabilized. 
14) Program asks user to enter a value for "Radiator Efficiency". 


The only reason this is in the program is that some users expressed a desire to 


change the efficiency on the run. 


15) Program lists values for: 


Temperature at Equinox 
Equilibrium Temperature (based on partial power needed during eclipse) 


Time Constant in seconds and minutes 


16) Program then determines the constant for radiative cooling based on the 
temperature at equinox and equilibrium temperature. The next step is finding the 
"After Equinox Temperature" via the radiative cooling equation. The program goes 
through a series of questions to aid the user in finding the "After Equinox 
Temperature". 

The program outputs your input temperature in °K and the "Eclipse Time" 
in minutes. Since we know for a geosynchronous orbit the longest eclipse time 1s 72 
minutes we will bracket this time (one value above and one value below 72 minutes). 
When a temperature yields a value sufficiently close to 72 minutes (around 10 minutes 
either side) we accept that value by answering with a character ’Y’ and that value is 
saved to bracket one side of 72. Next the program lists the saved "After Equinox 
Temperature" and its associated time. Then the program then goes the same process 
again to bracket the other side of 72 minutes. The program will not allow the user to 


accept a second on the same side of 72 minutes as the first. Once 72 minutes has 
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been successfully bracketed the program interpolates to determine the "Temperature 
After Equinox" for a time of 72 minutes. 

17) The program then moves on to radiative heating portion, the listed default 
desired operating temperature is listed and the user is asked if he wishes to change the 
value for either the "Radiator Heat Dissipation” or the "Specified Operating 
Temperature”. 

The following values are listed based on user input: 


Equilibrium Temperature 
Constant "C" 

Time constant - radiative heating 
Temperature After Equinox 
Equilibrium Temperature 


Operating Temperature 


18) Finally the names of the data files are listed 
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B. MASS PROPELLENT BUDGET AND MASS SUMMARY 
1) To start the program type "MASSPRO" at the dos prompt. 
2) The program will ask "Is your spacecraft spin stabilized". If it is answer 
with a character ’Y’ if not answer with a character ’N’ 
3) Program will state design chosen 
a) "Spacecraft is Spin Stabilized” or 
b) "Spacecraft is Three Axis Stabilized" 
4) Program asks "What is your Spacecraft Mass” 
a) Enter Spacecraft Mass including the Adaptor Mass in kilograms. 
Example: "3000.0" 
5) | Program asks "Please enter the radius at Apogee” 
Example "42353.0" 
6) Program asks "Please enter the radius at Perigee” 
Example "6565.0" 
Program lists the values for: 


Tp - Radius at Apogee 

Torprr - Radius of Transfer Orbit 

Vrp - Velocity at perigee for the transfer orbit 
Vr, - Velocity at apogee for the transfer orbit 


Vs - Velocity of a Geosynchronous Orbit 
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5) | Program asks "Please enter the launch inclination in degrees" 
Example "25.2" 


Program lists: I1pgorers - inclination in degrees 
lpapian ~ inclination in radian 
Geosynchronous Orbit insertion angle 
AVgr - velocity to enter a geosynchronous equatorial orbit 


6) |Next program asks "Please enter the allowable inclination tolerance" 


Example "0.2" 


7) Next the program asks "Enter the spacecraft first year in orbit. Any year 


between 1991 and 2003" Example " 1994 " 


lists: 


8) Next program asks "Enter last year of spacecraft life " Example " 2001 " 


9) Drift rates for the selected range of years is displayed and the program 


Average drift rate per year 
Tyg - time between north south station keeping maneuvers 
Nys - number of north south station keeping maneuvers 


AVys - delta velocity north south 
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10) Next program asks "Please enter the spacecraft operating longitude in 
degrees" 

Example "312.3" then program lists: 

Ndouble do ~ Longitudinal drift acceleration 
Trew - Time between east west station keeping maneuvers 
AVew - delta velocity over spacecraft life for E-W station keeping 
Next program states "the efficiency of the station keeping motors" 
EFF ys - Propulsion efficiency north south 
EFF ew - Propulsion efficiency east west 
to change default values enter a ’1’ otherwise a ’2’ 

11) Next program asks "Please enter the number of days allowed for station 
repositioning" Example "29.0" and then the program asks "Please enter the 
number of degrees to reposition.Example "125.9". 

12) Program asks "What is your Spacecraft Mass" 

a) Enter Spacecraft Mass including the Adaptor Mass in kilograms. 
Example: "3000.0" 
13) Next program asks "Please enter the I,p for Apogee Injection 


Example "285.0" 
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14) Next program asks "Please enter the efficiency of the motor for station 
repositioning” 
Example "0.97" 
15) Next program asks "Please enter the efficiency of the motor for satellite 
deorbit" 
Example "0.98" 
The program then lists the following values: 
Pre AMF Fuel Mass 
AMF Fuel Mass 
Post AMF Fuel Mass 
Mass change Post AMF 
16) Next program asks "Please enter the I,p for orbit maintenance" Example 
"285.0" Then the screen displays the following Igp 
AMxs 
AMeEw 
AMgp 
AMorsrr CONTROL 
MopressuraNT 
Marcin 


AMppopeL Lent 
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Msrrucr URE 

MgpacecraFt BEGINNING OF LIFE 
MryerMa CONTROL 
Marrrupe CONTROL 
Mwecuanica SYSTEM 
MpropELLENT 

MpropeLLent PRESSURANT 
Morymass 

Mass MARGIN 


McommunicaTIONs PACKAGE 


17) Program asks "Enter the POWER requirements of the Spacecraft in watts. 
Example: "2000.0" 
18) Next the program asks you to chose a reference satellite from those listed 


*1’ Intelsat V 
2’ Intelsat VI 
°3° Intelsat VII 


4’ or to insert your own values. 
Screen displays values for: 
PuoUSEKEEPING 
PRaTTERY LOAD 


Psoiar ARRAY LOAD 
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Power Factor 
Meectr RICAL POWER SUBSYSTEM 
MpayLoap 


MrrackiNG AND TELEMETRY 


and finally lists the data files for the design run. 


C. ELECTRICAL POWER SYSTEM 


1) To start the program type "THERMAL" at the dos prompt. 
2) The program will ask "Is your spacecraft spin stabilized". If it is answer 
with a character ’Y’ if not answer with a character ’N’ 
3) Program will state design chosen 
a) "Spacecraft is Spin Stabilized" or 
b) "Spacecraft is Three Axis Stabilized" 
4) Program asks "What is your Spacecraft Mass" 
a) Enter Spacecraft Mass including the Adaptor Mass in Kilograms. 
Example: "3000.0" 
5) | Program asks "Enter the POWER requirements of the Spacecraft in watts. 
Example: "2000.0" 


6) Next the program asks you to chose a reference satellite from those listed 


2 


1) 


to change 


*1’ Intelsat V 
2’ Intelsat VI 
°3’ Intelsat VII 


La 


’4” or to insert your own values. 


The program lists the calculated housekeeping power and asks if you want 


this value for future calculations. If you want to change it enter a 


character ’Y’ if not, depress a character ’N’. 


Program then lists the values for Payload Power and Housekeeping Power 


8) 


9) 


Program asks "Enter the spacecraft life in years" Example "10.0" 
Program lists some default values for: 


Minimum discharge bus voltage Vp, 
Design satellite bus voltage Vyy> 
Bypass diode voltage dropVpp 

EOL battery discharge voltage Viync 
Satellite eclipse time Tp 

Battery depth of dischargeDOD 
Maximum battery discharge voltage V 
Series connected diode voltage dropV 
Number of series connected diodesNgcp 
Battery charger voltage dropV,- 
Charge discharge voltage dropVp 


To change any of the listed values enter a character ’Y’ and then enter the number of 


the value you wish to change. After all desired changes have been made enter a 


fe: 


character *N’ 

and your final values will display on the screen 

Example: if the user wants to change first the user enters a ’Y’ then enters a "6" and 
the Program asks "Please enter the Depth of Discharge used for the batteries" 

10) Program asks "Enter the number of electrical buses used in your satellite” 


Example 20 


11) Program asks "Please enter the Solar Cell Test Temperature" Example 
o23e0G 
12) Program states some nice to know information. 
13) Program states some calculated environmental design values and asks if you 
want to use them. To use calculated values enter a 1’ to input your values enter a 
roe 
14) Program displays some standard solar cell parameters and asks if the user wants 
to select one of these cells or enter their own values. User enters an integer number 
for the desired choice. Screen then displays selected or input parameters for user 
concurrence. 
15) Screen displays: 

N, - Number of solar cells in series 

Vpp ~ Minimum discharge bus voltage 

CELL,,, - Battery cell ampere hours 

Pyys - Bus power 

Vasc - Maximum battery charge voltage 

Vzc - Battery charger voltage drop 

Boost Voltage 
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Igqutnox ~ Equinox current 

lsorsrice ~ Solstice current 

Prac - Power equinox charge 

Psc - Power solstice charge 

arcuaece ble to recharge the battenes 

Psarzou ~ SOlar array design load equinox 

Poarso. - SOlar array design load solstice 

Imp - Solar cell current at max power point EOL solstice 
Iup - Solar cell current at max power point EOL equinox 
Isoistice - Required current solstice per bus 

Izquinox ~ Required current equinox per bus 

Vaus - Bus voltage 

N, - Number of solar cells in parallel for each bus 

Veo sotstice - SOlar cell voltage at EOL summer solstice 
Veor Equinox ~ SOlar cell voltage at EOL autumnal equinox 
N, - Number of solar cells in series for each bus 

Inus - Current per bus or wing 

Vaus - Voltage per bus or wing 

Prorat - Lotal power 

Nc. - Number of series cells for charge array solstice 
Ness - Number of parallel cells for charge array solstice 


Necro - Number of parallel cells for charge array equinox 


Finally the data file names appear for this design run. 


1S) 


SAMPLE DATA SHEET 


SPACECRAFT MASS SUMMARY 


SSS See Se Se Oe eS See SSeS SS SF SSF FF SF SC 8 SSF Sf 8S 8 SSS 8 2s ST 8 Ss SF ees TZ 2 FZ 22 SZ we Zw eS we Sw Se ew ees BZ SF se e8 eS Sse ee SS es 


Subsystem Mass (kg) 
Suture 4 
Thermal SZ 
Propulsion 13225 
Attitude Contro 164.8 
Electric Integration 76.1 
Mechanical Integration Dies 
Mass Margin 162.3 
Dry Spacecraft Mass 1622.8 
Propellent Pressurant 384.3 
Apogee Motor Expendable 1192.9 
Spacecraft Mass at Seperation 3200.0 
Communications Lda 
Antenna Reference Mass 309.0 
Electric Power 351.6 
Telemetry and Command 24.2 
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APPENDIX B 


A. MASS PROPELLENT BUDGET AND SYSTEM MASS SUMMARY 
-- Title : Velocity Determination 

-- Author : David Lashbrook 

-- Date : 09 October 1991 

-- Revised : 05 May 1992 

-- Compiler : OPENADA EXT 

-- Description : This procedure determines the delta velocity for insertion 


- into geosynchronous orbit. 


with TEXT IO, MATH_LIB,GETDATA, VIDEO; 
use TEXT 10, MATH LIB,GETDATA; 


procedure MASSPRO is 
package FLOAT _INOUT is new FLOAT_IO(FLOAT); 
use FLOAT INOUT; 
package INTEGER _INOUT is new INTEGER IOUINTEGER); 
use INTEGER INOUT; 
package BOOLEAN _INOUT is new ENUMERATION IO(BOOLEAN); 
use BOOLEAN INOUT; 


INCLINATION_RADIANS, 

DELTA VELOCITY NORTH SOUTH, 

DELTA VELOCITY EAST WEST, 

DELTA VELOCITY STATION REPOSITIONING, 
DELTA VELOCITY, 


X eer lLOAT: 

EFF NS FLOAT :-= 0.91: 

EFF EW : FLOAT := 0.99; 

J : INTEGER; 


MASS BEFORE APOGEE BURN, 
SPACECRAFT MASS BEFORE APOGEE BURN, 
COMM PACKAGE MASS, 


SPACECRAFT_MASS : FLOAT; 
DRUM_SPINNER : BOOLEAN: =FALSE; 
OUTM :-FILE_TYPE; 


Vs 


procedure GET _DATA(X : out FLOAT) 1s 
begin 
loop 
begin 
NEW _LINE(2); 
SET_COL(10); 
PUT_LINE("Enter the value as a real number with a 
decimal point”); 
SET COE(S); 
PUT_LINE("(Depress CTRL*C to exit the program.)"); 
SET _COL(10); 
GET(X); 
SKIP_LINE; 
exit; 
exception 
when DATA_ERROR = > 
SKIP_LINE; 
NEW INE: 
SET eCOrd0). 
PUT LINE("Error.. You must enter the value as a 
real”); 
SET FCOCECdO); 
PUT _LINE("number with a decimal point. ie 123.4"); 
SET COL(i0); 
PUT _LINE("Try again."); 
NEW _LINE; 
end; 
end loop; 
end GET DATA; 


-- Reads an integer input from the keyboard 


procedure GET INTEGER : out INTEGER) is 
begin 
loop 

begin 
NEW_LINE(2); 
SET -COL(10); 
PUT_LINE("Enter the value as an integer”); 
PUT_LINE("(Depress CTRL*C to exit the program.)"); 
SET COL(i0); 
GET): 
SKIP_LINE(1); 
exit; 

exception 
when DATA_ERROR = > 

SKIP_LINE; 

NEW_LINE; 

SET_COL(10); 

PUT_LINE("Error.. You must enter the value as a 

INTEGER”); 
SET COL(i0); 
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PUT_LINE(" NO! decimal point. ie 123 "); 
Ser COL(10); 
mel, LINE(" Please try again."); 
NEW LINE; 
end; 
end loop; 
end GET INTEGER; 


procedure GET CHARACTER(CHAR : out CHARACTER) ts 
begin 
loop 

begin 
NEW_LINE(2); 
SET_COL(10); 
me LINEC Enter “Y’ for YES or "); 
NEW LINE(1); 
SET _COL(i0); 
mel LINEC "N’ for NO"); 
SET COL(15); 
PUT_LINE("(Depress CTRL*C to exit the program.)"); 
SET _COL(10); 
GET(CHAR); 
per LINE; 
exit; 

exception 
when DATA_ERROR = > 

SKIP_LINE; 

NEW LINE; 

SET COL(10); 

PUT LINE("Error.. You must enter character"); 
SET COL(10); 

PUT _LINE("Try again.”"); 

NEW _LINE; 

end; 

end loop; 
end GET CHARACTER; 


procedure DUAL SPIN (DRUM_SPINNER: in out BOOLEAN) ts 
y; 

Y, 

n, 

N, 

CHAR : CHARACTER; 


begin 
VIDEO.CLEAR SCREEN; 
SET COL(1i0); 
PUT _LINE("Is your spacecraft Spin Stabilized "); 
SET COL(15); 
GET CHARACTER(chan); 
if CHAR = ’Y’ or CHAR = ’y’ then 
DRUM_SPINNER:=TRUE; 
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if DRUM_ SPINNER = TRUE then 
VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 


PUT LIN EC BAR EEE EA Ee EEE ee Ee Ee ee 
ses skskok seskesesikek ") 
NEW _LINE(2); 
SET_COL(10); 
PUT LINE("Satellite is Spin Stabilized"); 
NEW _LINE(2); 


PUT _LINE ("3H Hse aici idcidccicioidcdacinigcl aI SAARI AACA AEA AK 

eco CIE") 
NEW_LINE(2); 
end if; 

else 


VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 


PUT LINE (0 6 aR Ra eee a oe rn eee at 
sila a caian |e 
NEW _LINE(2): 
SET_COL(10); 
PUT LINE("Satellite is Three Axis Stabilized"); 
NEW _LINE(2); 


PUT LINE ("99626259 23 22824 4 ko kk A A ok CC a a Eo oA A CK a 
JOC EN) 
INEW  LINE(2): 
end 1f; 
end DUAL SPIN; 


procedure PRINT HEADER is 

begin 
VIDEO.CLEAR SCREEN; 
NEW_LINE(2); 
SET COL(10); 
PUT _LINE("This program walks through a basic design of a"); 
SET COL(10); 
PUT _LINE("geosynchronous satellite."); 
NEW LINE; 

end PRINT HEADER; 


procedure VELOCITY (INCLINATION RADIANS : in out FLOAT; 


DELTA_VELOCITY 7 in-out POAT) is 
RADIUS EARTH : FLOAT: =7378.0; -- 
kilometers 
UE : constant FLOAT: =3.986E+05; -- 
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km**3/seconds**2 


GEOSYNCHRONOUS ORBIT RADIUS: constant FLOAT: =4.2164E +04; -- km 


APOGEE VELOCITY, 

PERIGEE VELOCITY, 

SYNCHRONOUS ORBIT _VELOCITY_ CALCULATED, 

ANGULAR VELOCITY, 

RADIUS_ APOGEE, 

RADIUS PERIGEE, 

APOGEE ALTITUDE, 

PERIGEE ALTITUDE, 

INCLINATION, 

ORBIT_RADIUS : FLOAT: =0.0; - 
kilometers 


SYNCHRONOUS ORBIT VELOCITY : constant FLOAT: =3.075;_ -- 
kilometers/second 


= 


~“ 


N <x 


>: FLOAT: =0.0; 


BETA, 

ALFA DEGREES, 

ALFA : FLOAT: =0.0; ~~ 
radians 


I, 
N : INTEGER; 


begin 
-- Read apogee radius from keyboard 
-- GET APOGEE RADIUS 
SET_COL(10); 
NEW _LINE(2); 


PUT I aera pe ce RR oR AG oc Ae Ace ee Ac ce ce i eo he he he ioe oe oc oe ae i oi oe os oe ae i oe Aso ac oe on seo 
Joe"), 


NEW LINE; 

PUT LINE (" Please enter radius at apogee "); 
NEW _LINE(2); 

SET_COL(15); 

GET_DATA(RADIUS_ APOGEE); 
VIDEO.CLEAR_ SCREEN; 

NEW _LINE(2); 

SET_COL(10); 

PUT("Radius at apogee is "); 

SET COL(60); 
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PUT(RADIUS_ APOGEE, FORE => 6, AFT => 4, EXP => 0); 
PUT(" km"); 


-- GET PERIGEE RADIUS is 
NEW_LINE(2); 


PUT LIN BG Re EEK GE RE RS ee ee 
FEI”) 


NEW _LINE; 

SET COLO); 

PUT LINE("Please enter radius at Perigee”); 
GET DATA(RADIUS PERIGEE); 
NEW_LINE(2); 

SET_COL(10); 

VIDEO.CLEAR_SCREEN; 

PUT("Radius at perigee is "); 

SE LCOR(G0) 

PUT(RADIUS PERIGEE, FORE => 6, AFT => 4, EXP => 0); 
PUT(" km"); 


-- VELOCITIES 


ORBIT_RADIUS:=(RADIUS_APOGEE+RADIUS_PERIGEE)/2.0; 
NEW _LINE(2); 

SET _COL(10); 

PUT("Orbit radius is "); 

SET_COL(60); 

PUT(ORBIT_RADIUS, FORE => 6, AFT => 2, EXP => 0); 
PUT(" km”); 


PERIGEE VELOCITY: =SQRT((2.0*UE*RADIUS APOGEE)/((RADIUS_ APOGEE+RAD 
IUS_PERIGEE)*RADIUS_ PERIGEE)); 

NEW _LINE(2); 

SET COL(10); 

PUT("Perigee velocity is "); 

SET_COL(60); 

PUT(PERIGEE VELOCITY, FORE => 6, AFT => 4, EXP => 0); 

PUTG skmisec ); 


APOGEE VELOCITY:=PERIGEE VELOCITY*(RADIUS PERIGEE/RADIUS_ APOGEE); 
NEW _LINE(2); 
SET _COL(10); 
PUT("Apogee velocity is "); 
SET COL(60); 
PUT(APOGEE VELOCITY, FORE => 6, AFT == 4) Ex 250), 
PUT(" km/sec"); 
-- ANGULAR_VELOCITY:= RADIUS APOGEE*APOGEE VELOCITY; 
-- NEW LINE(2); 
-- SET _COL(10); 
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ae PUT("Angular (h) velocity is "); 
SET_COL(60); 
-- PUT(ANGULAR VELOCITY, FORE => 6, AFT => 4, EXP => 0); 


SYNCHRONOUS ORBIT VELOCITY CALCULATED:= SQRT 
(UE/GEOSYNCHRONOUS ORBIT RADIUS); 

NEW_LINE(2); 

SET COL(10); 

PUT("Geosynchronous orbit velocity is "); 

SET _COL(60); 

PUT(SYNCHRONOUS ORBIT_VELOCITY CALCULATED,FORE = >6,AFT 
= >4,EXP=>0); 

PUT(" km/sec"); NEW_LINE(2); 


-- FIND_ ANGLES 
NEW_LINE(2): 


ok taricl a Tal ial 

NEW _LINE(2); 

SET COL(10); 

PUT LINE("Please enter the inclination the launch”); 
SET_COL(10); 

PUT_LINE("vehicle will insert the spacecraft.”); 

NEW _LINE(2); 

GET _DATACUNCLINATION); 

INCLINATION RADIANS: =INCLINATION*PI/180.0; 
VIDEO.CLEAR_ SCREEN; 

NEW _LINE(2); 

SET_COL(10); 

PUT("Inclination in degrees is "); 

SET _COL(60); 

PUTUINCLINATION, FORE => 6, AFT => 2, EXP => Q); 
IEW LINE(2); 

SET_COL(10); 

PUT("Inclination in radians is "); 

SET COL(60); 

PUT(INCLINATION_ RADIANS, FORE => 6, AFT => 5, EXP => 0); 


ALFA:=ATAN((APOGEE_VELOCITY*SIN(INCLINATION_RADIANS)) 


IS YNCHRONOUS ORBIT VELOCITY-APOG EE VELOCITY*COS(UINCLINATION RADI 
ANS))); 


ALFA DEGREES: =ABS(ALFA*180.0/PID); 
NEW_LINE(2); 

SET_COL(10); 

PUT("Insertion angle in degrees (ALFA) is "); 
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SET COL(60); 
PUT(ALFA_DEGREES, FORE => 6, AFT => 2, EXP => 0); 


-- BETA: = ABS(180.0-(NCLINATION + ALFA_DEGREES)); 
-- NEW_LINE(2); 

-- SET_COL(10); 

-- PUT("Tnangular angle (BETA) is "); 

-- PUT(BETA, FORE => 6, AFT => 2, EXP => 0); 


DELTA_VEL 


DELTA_ VELOCITY: =SQRT(((APOGEE VELOCITY *SINUNCLINATION_ RADIANS))* 


*2) 


Pu 


seek te see HEM) 


+((SYNCHRONOUS ORBIT VELOCITY 

-APOGEE VELOCITY*COS(INCLINATION_RADIANS))**2)); 
NEW_LINE(2); 

SET COL(10); 

PUT("Delta velocity for insertion into geo is "); 

SET _COL(60); 

PUT(DELTA_VELOCITY, FORE => 6, AFT => 4, EXP => 0); 
PUT(" km/sec"); 

NEW_LINE(2); 


aT LETIN Er ee ee ee ae a ae ee 


° 
2) 


NEW _LINE(2); 


end VELOCITY; 


procedure STATION KEEPING REPOSITIONING 


(DELTA_VELOCITY_ NORTH SOUTH : in out FLOAT; 
DELTA_VELOCITY EAST WEST : in out FLOAT; 
DELTA_VELOCITY STATION REPOSITIONING : in out FLOAT; 
EFF NS : in out FLOAT; 

Brn Ew : in out FLOAT) is 


AVERAGE INCLINATION DRIFT YEAR, 
AVERAGE _DRIFT_PER_YEAR, 
AVERAGE DRIFT YEAR, 

ADPY, 

LAMDA_DOT_DOT, 

LAMDA, 

DELTA_LAMDA, 


OPERATING LONGITUDE, 

LONGITUDINAL DRIFT ACCELERATION, 
TOLERANCE, 

TOLERANCE RADIANS, 
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INCLINATION DRIFT YEAR : FLOAT :=0.0; 

NORTH _SOUTH_MANEUVERS, 

NORTH SOUTH MANEUVERS INTEGER, 

TIME NS, 

meeeesiASS NS, 

TIME EW, 

ISP FUEL, 

EAST WEST MANEUVERS, 

FUEL MASS EW, 

DELTA VELOCITY TOTAL, -- delta velocity required for both 
east west 

-- and north south station keeping 


--EFF NS, -- thruster efficiency north south station 
keeping 

--EFF EW, -- thruster efficiency east west station 
keeping 

X, 

EFF DOR, -- thruster efficiency de-orbit 

EFF SR, -- thruster efficiency station repositioning 


STABLE_LONGITUDE, 

DAYS TO REPOSITION, 
DEGREES TO REPOSITION, 

DELTA FUEL STATION REPOSITIONING, 
EFF STATION REPOSITION — : FLOAT; 


WORST _LONGITUDINAL DRIFT ACCELERATION : constant FLOAT := 
-0.00168; 

STABLE LONGITUDE EAST : constant := 75.0; 

STABLE LONGITUDE WEST : constant := 255.0; 


GRAVITY constant 7—=9.81: --m/s 
FIRST _ YEAR : INTEGER = 199]; 

LAST_YEAR : INTEGER — Gi ee 

N, 

It 

CHOICE, 

PEACECRAFT LIFE : INTEGER; 


type DRIFT_PER_ YEAR is array (FIRST _YEAR..LAST_YEAR) of 
FLOAT; 

DRIFT: DRIFT_PER YEAR 

: =(0.897,0.867,0.834,0.802,0.775 ,0.756,0.748,0.752, 

0.767,0.792,0.823,0.856,0.888); 


-- 1991 through 2003 


begin 
NEW LINE(2); 
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PUT LIN E(“##*** £424 EEEEE EEE AE AE A ees ne ee 
NEW JeINE@): 
SET _COL(10); 
PUT_LINE("Enter the tolerance of spacecraft LATITUDE as real 
number."); 
GET_DATA(TOLERANCE); 
VIDEO.CLEAR SCREEN; 
PUT("Tolerance is "); 
set_col(60); 
PUT(TOLERANCE, FORE= >6,AFT= >2,EXP=>0);PUT(" deg”); 
TOLERANCE RADIANS: =TOLERANCE*PI/180.0; 
SET _COL(10); 


<<YEAR> > 
NEW _LINE(2); 


PUT _LINE(? #4 40 80666 2 oe EE ee eae eR RR a eee 


NEW LINE; 
PUT _LINE("Please enter the beginning year as an integer”); 
SETICOL(G): 
GET INTEGER (FIRST_YEAR); 
VIDEO.CLEAR_ SCREEN; 
if FIRST YEAR < 1991 then 
VIDEO CLEAK SCREEN; 
PU LINE ERROR. First Year 1s lower than 1991"); 
PUT _LINE("Please Try Again.”); 
NEW _LINE(3); 
goto year; 
end if; 
SET _COL(10); 
NEW _LINE(2); 
PUT("First year of lifetime is"); 
NEW LINE(2); 


2 


PUT LENE (Cr Reo ee a i ec eee ee 
NEW _LINE(2); 
SET _COL(60); 
PUT(FIRST_YEAR,WIDTH= >5); 
NEW_LINE(2); 
SET _COL(5); 


» 
3 


<<YEARA> > 


PUT_LINE("Please enter the ending year as an integer"); 
SETCOLG), 

GET_INTEGER (LAST_YEAR); 

VIDEO.CLEAR_ SCREEN; 

NEW _LINE(2); 
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PUT LINE(*" FR 7 2 2 6 26 fe 2 ie 2 2 2 2c ig 2 2 og 2 i 2 2 i 2g 2c a 2 2 og 2 2 2 ig ake 2c 2 kk 2c akc akc 2c ac ak oc 2 ak ofc akc ake 2k akc 2k ok 
ia **") 


NEW _LINE; 
if LAST YEAR < FIRST_YEAR then 
VIDEO.CLEAR SCREEN; 
PUT_LINE("ERROR ..... :Last Year is lower than First 
year’); 
PUT _LINE("Please Try Again."); 
NEW _LINE(3); 
goto YEAR; 
elsif LAST YEAR > 2003 then 
VIDEO.CLEAR_ SCREEN; 
rea eLINE(“ERROR ..... Last Year is greater than 2003"); 
PUT LINE("Please Try Again."); 
NEW _LINE(3); 
goto YEARA; 
end if; 
SET COL(S); 
PUT("Last year of expected lifetime is"); 
SET_COL(60); 
PUT(LAST_YEAR,WIDTH= >5); 
NEW LINE(2); 


» 
? 


PUT LINE (7233622 aa AAC IG II I ICI ACACIA aE AA ACA aA AE 
FAIA)» 


NEW _LINE(2); 


SPACECRAFT LIFE:=LAST YEAR-FIRST_YEAR +1; -- Total years 
includes ending year 

NEW _LINE(2); 

SET _COL(S5); 

PUT("Spacecraft life is "); 

PUT(SPACECRAFT LIFE, width= > 3); 

PUT(" years"); 


PUT(" (launch year counts as one year)"); 
NEW _LINE(2); 


PUT i RRR E EEE REE EE A AE AKA ERA ARE AA EERE ALARA AE 
fo ION). 


NEW _LINE(2); 


SET_COL(10);PUT("TO CONTINUE ENTER ANY INTEGER"); 
GET_INTEGER()); 


VIDEO.CLEAR_SCREEN; 


PUT LINE (22a Ra A a aa A AI IG IIA II A ICICI A CIA I A ak 
Joe I RIK") 


e 
7 
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NEW LINE; 

SELACOLG), 

PUT("Dnift per year "); 

while FIRST YEAR <= LAST_YEAR loop 


INCLINATION DRIFT_YEAR:=INCLINATION DRIFT _YEAR+DRIFT(FIRST_YEAR); 


SET_COL(5); 

PUT(FIRST_YEAR,WIDTH= > 5); 

SET_COL(20); 

PUT(DRIFT(FIRST_YEAR), FORE=> 1, AFT=> 4, EXP=>0); 
FIRST_YEAR:=FIRST YEAR +1; 


end loop; 
NEW LINE(2); 


PUT LONE re or eT a a mee 
gas ocala dea! 0) 


NEW _LINE(2); 


SET COL(10);PUT("TO CONTINUE ENTER ANY INTEGER’); 
GET_INTEGER()); 


AVERAGE DRIFT PER _YEAR:=INCLINATION DRIFT _YEAR/FLOAT(SPACECRAFT_L 
IFE); 

NEW_LINE(2); 

ADPY:=AVERAGE DRIFT PER_YEAR; 

SET_COL(5); 

NEW_LINE(2); 


PUT DOIN EE 28 0 a a 2 a ee 2 2h ee se 2b he Ag ae sae i ok Hs rath sa el a 
TSS): 


NEW _LINE(2); 


VIDEO.CLEAR SCREEN; 

SET _COL(5); 

PUT(" Average drift rate per year is "); 

SET _COL(60); 

PUT(ADPY, FORE => 4, AFT => 4, EXP => 0); 
PUT(" degrees"); 


TIME NS: =(2.0*TOLERANCE/ADPY)*365.25; 

NEW LINE(2); 

SET_COL(5); 

PUT(" Time spent in north south station keeping is "); 

SET COL(60); 

PUT(TIME_NS, FORE => 4, AFT => 4, EXP => 0); 
PUT(" days"); 
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NORTH_SOUTH_MANEUVERS: =(FLOAT(SPACECRAFT _LIFE)*ADPY)/(2.0*TOLERAN 
CE); 

NEW _LINE(2); 

SET _COL(S); 

PUT(" Number of north south maneuvers is (REAL)"); 

SET COL(60); 

PUT(NORTH_SOUTH MANEUVERS, FORE => 4, AFT => 4, EXP => 0); 


N:=INTEGER(NORTH SOUTH MANEUVERS); 

NORTH SOUTH MANEUVERS INTEGER: =FLOAT(N); 

--NEW_LINE(2); 

--SET_COL(5); 

eMC N"); 

--PUT(NORTH_SOUTH_ MANEUVERS, FORE= >4,AFT=>4,EXP => 0); 


if NORTH_SOUTH MANEUVERS INTEGER < NORTH SOUTH MANEUVERS then 


NORTH SOUTH MANEUVERS INTEGER:=NORTH SOUTH MANEUVERS INTEGER + 1.0; 
end if; 


NORTH SOUTH MANEUVERS:=NORTH SOUTH MANEUVERS INTEGER; 
NEW _LINE(1); 

SET _COL(S5); 

PUT(" Number of north south maneuvers is (ROUND UP)"); 

SET COL(60); 

PUT(NORTH_SOUTH_ MANEUVERS, FORE => 4, AFT => 4, EXP => 0); 


DELTA VELOCITY NORTH_SOUTH:= 

NORTH SOUTH MANEUVERS*6.148*SIN(TOLERANCE RADIANS)*1000.0; 

NEW _LINE(2); 

SEF COL(5); 

PUT(" Delta velocity north south 1s"); 

SET _COL(60); 

PUT(DELTA_VELOCITY NORTH SOUTH, FORE => 4, AFT => 4, EXP => 
0); 

Pe (eeem/ sec”); 


NEW _LINE(2); 


PUT LINE(" 3 oie ak ok ok ok 2 akc ok ok ok ok 3K ok ok ok ok ok ok ok 3 ok ok ok ok ok ok oe ok ok ok ok ok ok ok ok ok oK ok ok ok ok ok ok ok oi ok oi ok ok ok ok ok 2 
eee"). 


NEW _LINE(2): 


SET COL(10);PUT("TO CONTINUE ENTER ANY INTEGER’); 
GET_INTEGER(I); 


-- East West station keeping 
VIDEO.CLEAR_ SCREEN; 
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NEW _LINE(2); 


PUT LI NE ("22824 9828 5 9 22 oo eo eo a A oe A A 
oe eo se aes ake”) 


NEW _LINE(2); 


SET ICOEG); 

PUT _LINE("Enter the spacecraft OPERATING LONGITUDE"); 
NEW _LINE(2); 

SET_COL(5); 

GET _DATA(OPERATING LONGITUDE); 

VIDEO.CLEAR SCREEN; 

NEW _LINE(2); 

SET_COL(10); 

PUT("Operating Longitude 1s "); 

PUT(OPERATING LONGITUDE, FORE => 6, AFT => 2, EXP => Q); 
PUT(" degrees longitude”); 

NEW_LINE(2); 


PUT LINE CBee Re Re Te a a 
SOSA), 

NEW _LINE(2); 

SET_COL(5); 


if OPERATING LONGITUDE > 345.0000 
and OPERATING LONGITUDE < =360.0 then 
DELTA_LAMDA:=SIN(2.0*PI/180.0* 
(360.0-OPERATING_LONGITUDE+STABLE LONGITUDE _EAST)); 
STABLE LONGITUDE: =STABLE LONGITUDE EAST; 


elsif OPERATING LONGITUDE >= 0.0 
and OPERATING LONGITUDE < 165.0 and OPERATING LONGITUDE /= 
75.0 then 
DELTA_LAMDA:=SIN(2.0*PI/180.0* 
(OPERATING LONGITUDE-STABLE LONGITUDE EAST)); 
STABLE LONGITUDE: =STABLE LONGITUDE EAST; 


elsif OPERATING LONGITUDE > 165.0 
and OPERATING LONGITUDE <345.0 and OPERATING_LONGITUDE /= 
255.0 then 
DELTA_LAMDA: =SIN(2.0*PI/180.0* 
(OPERATING LONGITUDE-STABLE LONGITUDE_WEST)); 
STABLE LONGITUDE: =STABLE LONGITUDE_WEST; 


elsif OPERATING LONGITUDE = 165.0 or OPERATING LONGITUDE = 
345.0 then 
DELTA_LAMDA:= WORST_LONGITUDINAL DRIFT_ACCELERATION; 
SET _COL(5); 
PUT("Delta Lamda is "); 
PUT(DELTA_LAMDA,FORE= >4,AFT= >2,EXP= >0); 
PUT(" degrees"); 
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elsif OPERATING LONGITUDE = 255.0 or OPERATING LONGITUDE = 

75.0 then 

SET _COL<(S5); 

PUT(" Stable longitude so time between east-west is"); 

SET COL(5);PUT("essentially infinite"); 

TIME EW: =0.0; 

NEW _LINE(2); 

Se eCOL(5); 

PUT(" Time between east west keeping is "); 

PUT(TIME EW, FORE => 4, AFT => 4, EXP => 0); 

NEW _LINE(2); 

SET COL(5); 

LAMDA DOT _DOT:=0.0; 

SET COL(5); 

PUT("Delta Lamda DOUBLE DOT is "); 

PUT(LAMDA_ DOT DOT,FORE= >1,AFT=>7,EXP= > 0); 

PUT(" degrees/day*2"); 


end if; 


if OPERATING LONGITUDE /= 75.0 then 
if OPERATING LONGITUDE /= 255.0 then 


LAMDA DOT DOT:=ABS((WORST_LONGITUDINAL DRIFT _ACCELERATION)*(DELTA 
_LAMDA)); 

NEW _LINE(2); 

SET_COL(5); 

PUT("Delta Lamda DOUBLE DOT is *): 

SET COL(S50); 

PUT(LAMDA DOT DOT,FORE= >1,AFT= >7,EXP= >0); 

PUT(" degrees/day*2"); 


-- Average time interval between east-west station keeping 
days 


TIME EW:= 4.0*SQRT((TOLERANCE/LAMDA_ DOT_DOT)); 
NEW LINE(2); 
oer "COL(S); 
PUT(" Time between east west keeping is "); 
set COL(S0); 
PUT(TIME EW, FORE => 4, AFT => 4, EXP => Q); 
PUT(" days"); 
end if; 
end if; 


DELTA_VELOCITY EAST WEST: =ABS(1.74*SIN(2.0*PI/180.0 
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*(OPERATING LONGITUDE-STABLE LONGITUDE))*FLOAT(SPACECRAFT_LIFE)); 





NEW_LINE(2); 

SET COL{5); 

PUT(" Delta velocity east west is"); 

SET COlL(S6); 

PUT(DELTA_VELOCITY_EAST_WEST, FORE => 4, AFT => 4, EXP => 0); 
PUT(" m/sec"); 


-- Total delta velocity required 

NEW _LINE(2); 

SET COL); 

PUT_LINE("The default propulsion efficiency in the N-S 
direction is 0.91"); 

SETSCOLG); 

SETACOR(S); 

PUT_LINE("The default propulsion efficiency in the E-W 
direction is 0.99"); 

NEW_LINE(2); 


SET_COL(5); 

PUT_LINE(“enter an integer *1’ to CHANGE default values"); 
NEW _LINE(2); 

SET _COL(5); 

PUT _LINE("To accept default values enter integer 2 "); 

GET INTEGER(CHOICE); 


case CHOICE 1s 
when 1=> 
VIDEO.CLEAR SCREEN; 
SET COL(5); 
PUT_LINE("Please enter desired N-S propulsion efficiency"); 
SET COLG), 
GET DATA(EFF_NS); 
NEW _LINE(2); 
SEd COS. 
PUT_LINE("Now enter desired E-W propulsion efficiency"); 
SET COL(5); 
GET_DATA(EFF EW); 
VIDEO.CLEAR_ SCREEN; 
when OTHERS => 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
SET COL): 
PUT LINE ("Understand no changes desired"); 
NEW _LINE(3); 

end case; 


DELTA_VELOCITY_TOTAL:=(DELTA_ VELOCITY NORTH SOUTH/EFF_NS) 
+(DELTA_VELOCITY_EAST WEST/EFF EW); 
NEW _LINE(2); 
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SET_COL(i0); 

PUT("Delta velocity total is "); 

PUT(DELTA_VELOCITY TOTAL, FORE => 6, AFT => 2, EXP => 0); 
PUT ("km/sec"); 

NEW _LINE(2); 


PUT LINE (7 #24 222 2 2 22 2 24 hh ee oo a A A RC OR Ca AK 2 2K OI a a aK a a A A CK 
oe 6 *")- 


NEW _LINE(2); 


SET_COL(10);PUT("TO CONTINUE ENTER ANY INTEGER’): 
GET_INTEGER(I); 
VIDEO.CLEAR_ SCREEN; 


-- STATION REPOSITIONING 

SET COL(S); 

PUT_LINE("Enter the numbers of days to reposition"); 
SET COL(S5); 

GET _DATA(DAYS_ TO REPOSITION); 
VIDEO.CLEAR SCREEN; 

NEW _LINE(2); 

SET COL(10); 

PUT("Number of Days to Reposition is "); 

SET _COL(S0); 

PUT(DAYS TO_REPOSITION, FORE => 6, AFT => 2, EXP => 0); 
PUT (" days"); 

NEW _LINE(2); 


PUT LINE (72322 aa a a ea aia rai a a I Aa II ACI CA AC A aC A a oA ao aA a oh ak ak ok a AA 
Jo IIR"). 

NEW LINE(2); 

set COL(5); 


-- Get how many degrees to reposition satellite 


SET COL(S); 

PUT LINE("Enter the number of degrees to reposition"); 
SETSCOL(S); 

PUT_LINE(“as real number."); 

GET DATA(DEGREES TO REPOSITION); 
VIDEO.CLEAR SCREEN; 

NEW _LINE(2); 


MMPI LIN) Fg 924A 2 oe ok eck i seo Seok A A AA AA AAA RAR AAA RAAT A 
cae **"): 
NEW LINE(2); 

SET COL(10); 

PUT("Number of Degrees to Reposition is "); 

SET _COL(S50); 

PUT(DEGREES TO REPOSITION, FORE => 6, AFT => 2, EXP => 0); 
PUT(" degrees"); 


oS 


-- Delta velocity to reposition satellite 


DELTA_VELOCITY_ STATION REPOSITIONING: =5.66* 
DEGREES TO_REPOSITION/DAYS_ TO REPOSITION; 
NEW_LINE(2); 
SET _COL(10); 
PUT("Delta velocity for station repositioning is"); 
SET_COL(S0); 
PUT(DELTA_VELOCITY STATION REPOSITIONING, FORE => 6, AFT => 2, 


EXP => 0); 


PUT(" m/sec"); 


NEW_LINE(2); 


PUT _LINE(* 2k 2K ok 2k 2k 2k ok ok 2k ok ok ok 2K ok ok 2k 2k 2k ak ok 2k 2k 2k ok ok afk ok 2k ak ak ok 2c ok 2c 2 2k 2k 2k 2k ak ak ak ok ok 2k 2c 2k ak 2k 2k afk 2k 2k 2 2k 


aaa da tae a) 


$ 


NEW _LINE(2); 


end STATION KEEPING REPOSITIONING; 


procedure MASS 


(DELTA VELOCITY NORTH SOUTH : in FLOAT; 
DELTA _ VELOCITY EAST WEST pain FLOAT; 
DELTA_VELOCITY_ STATION_REPOSITIONING : in FLOAT; 
DELTA_ VELOCITY ay FLOAT; 

EPEINS in FLOAT; 
EBPZEW : in FLOAT; 
SPACECRAFT MASS BEFORE APOGEE BURN :inout FLOAT; 
COMM_PACKAGE MASS :inout FLOAT) 
iS 
gravity : constant FLOAT := 9.81; -- m/s 
: constant FLOAT <7 .O- -- 
constant 
ADAPTOR : constant FLOAT a= anu: 
ISP_ ORBIT : FLOAT = 278.0; -- Sec 
MASS REFERENCE : FLOAT := 1900.0; -- 
kilograms 
SPACECRAFT : FLOAT; 
PRE AMF REFERENCE : FLOAT := 7.0; -- kg 
AMF_ REFERENCE : FLOAT := 861.0; -- kg 
POST_AMF_ REFERENCE: FLOAT i= 29.9; -- kg 
MASS CHANGE POST _AMF:FLOAT := 0.0; 
PRESSURANT_REF: FLOAT :="9.0; -- kg 
MARGIN_ REF: FLOAT = 2.0; -- kg 
ON_ORBIT_CONTROL_REF :FLOAT — := 118.0; -- kg 
ATTITUDE CONTROL REF:FLOAT  := 12.3; -- kg 
ISP_AMF : FLOAT := 300.0; -- sec 
DEORBIT_ REFERENCE : FLOAT = 5.2; -- kg 
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PRESSURANT REFERENCE: FLOAT := 5.0; -- kg 
MARGIN_REFERENCE : FLOAT := 2.0; -- ke 
DELTA VELOCITY DEORBIT:FLOAT  := 7.0; 


SCALE FACTOR : constant FLOAT := 1.9; -- 
FACTOR : constant FLOAT := 1.05; -- 
MASS_RATIO : FLOAT; 


PRE_AMF, 

AMF, 

POST_AMF, 

BOL MASS, 

ON ORBIT CONTROL, 
ATTITUDE_CONTROL, 
DEORBIT, 
PRESSURANT, 
MARGIN, 


SPACECRAFT DRY_MASS, 
SPACECRAFT BOL MASS, 


APOGEE MOTOR IMPULSE, 
ORBIT IMPULSE, 

MASS_ SPACECRAFT, 
SPACECRAFT MASS, 

MASS _POST_AMF, 

MASS _EW_STATION_KEEPING, 
MASS NS STATION KEEPING, 
MASS _STATION_REPOSITIONING, 
MASS _DEORBIT, 


MASS DRY, 

MASS INITIAL, 

MASS MARGIN, 

MASS _PROPELLENT_PRESSURANT, 


PROPELLENT MARGIN, 
PROPELLENT_ MASS, 

PROPELLENT EXPENDITURE, 
PROPELLENT PRESSURANT MASS, 
PROPELLENT MASS CHANGE, 
PROPELLENT EXPENDITURE, 
BYPROPELLENT MASS, 


STRUCTURAL_MASS, 
THERMAL CONTROL MASS, 
ELECTRICAL SYSTEM MASS, 
MECHANICAL SYSTEM MASS, 
DRY_MASS, 

PAYLOAD POWER, 


95 


HOUSEKEEPING POWER, 


BATTERY LOAD, 
SOLAR_ARRAY LOAD, 
ELECTRICAL _POWER_MASS, 
EFF STATION REPOSITIONING, 


EFF_DEORBIT, 
PROPELLENT MARGIN, 
X, 
Z, 
ON_ORBIT_CONTROL, 
TRACKING TELEMETRY : FLOAT; 
N : INTEGER ; 
--DELTA_ VELOCITY : constant FLOAT := 1.52 ; 
OUE (IEE SEE: 

begin 


SET -C@r(10), 

PUT_LINE("Enter the mass of the spacecraft in kilograms"); 
SET_COL(10); 

GET DATA(SPACECRAFT MASS BEFORE APOGEE BURN); 
NEW_LINE(2); 

SET EORIS); 

VIDEO.CLEAR SCREEN; 

NEW _LINE(2); 

PUT("Spacecraft mass before apogee motor burn is "); 
PUT(SPACECRAFT MASS BEFORE APOGEE BURN, FORE => 6, AFT => 2, EXP 
= 2.0); 

PUT(" kgs"); 

NEW _LINE(2); 


PUT EINE Ge ne on er ee ee er aes 
om et de 
NEW _LINE(2); 

SET _COL(10); 

PUT("What is the specific impulse for apogee injection"); 
SET COL(15); 

get_dataaAPOGEE MOTOR IMPULSE); 
VIDEO.CLEAR_ SCREEN; 


PUT LINE( FY fe oI afc a afc afc 2a ae 2k ae akc afk ac 2c 2 afc akc a ae ais fe afc ac afc afc afk afc abe afc ak akc fc a afc ade a 2kc ac 2c afc afk akc ake afk akc afc afk afc akc afk ae akc ak 2 2c 
taal tole) 


NEWeEINE: 
PUT ("Specific Impulse of Apogee injection is "); 


> 
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PUT(APOGEE MOTOR IMPULSE, FORE =>4, AFT => 1, EXP => QO); 
POI sec’); 


NEW_LINE(2); 


PUT ee ee EEE EEE EEE 
eee. **"): 


NEW_LINE(2); 


--SPACECRAFT MASS BEFORE APOGEE BURN:=MASS BEFORE APOGEE BURN-ADA 
PTOR; 
SET COL(10); 
PUT _LINE(" This mass budget uses modified INTELSAT V"); 
SET sCOL(10); 
PUT _LINE ("data for a premliminary estimation purposes"); 
SET COL(10); 
PUT_LINE("the reference data to a different satellite 
simply"); 
SET COL(10); 
PUT _LINE ("changing the values labelled reference in the"); 
SET_COL(10); 
PUT LINE ("declaration statements"); 


NEW _LINE(3); 

SET _COL(S); 

PUT("Please enter the value for efficiency of station 
repositioning"); 


SET COL(15); 

get _data(EFF STATION REPOSITIONING); 

VIDEO.CLEAR_SCREEN; 

NEW _LINE(2); 

SET COL(10); 

PUT("Efficiency of STATION REPOSITIONING is "); 

SET COL(50); 

PUT(EFF_ STATION REPOSITIONING, FORE =>1, AFT => 3, EXP => 0); 
NEW _LINE(2); 


NN Mths or EEE EE AAT AE EER 
ieee mete hk RoE”). 

NEW LINE(2); 

SET _COL(S); 

PUT("Please enter the value for efficiency of satellite 
deorbit"); 

Si COL(15); 

get_data(EFF_ DEORBIT); 

VIDEO.CLEAR SCREEN; 

NEW _LINE(2); 

SET_COL(15); 

PUT("Efficiency of deorbit is "); 

PUT(EFF DEORBIT, FORE =>1 , AFT => 3, EXP => Q); 


oi 


NEW_LINE(2); 


PUT LINE(’ ae 2K aft afc ais ae 2c 2c afc aie a oc afc ac os 2 26 ofc ok oc 2 2c oie ac oe a ais afc afc 2 oi 2c 2 oc ok ot ak 2c 2 2c 2c 36 2K ok ok 2K of ofc 2K 2 ok 2K ok OK oc 
ake ae ak ae a ake ak ak ak teak ); 
NEW _LINE(2); 

MASS_ RATIO: =SPACECRAFT MASS BEFORE APOGEE BURN/MASS_ REFERENCE; 


NEW _LINE(2); 

SET_COL(10); 

PUT("Mass Ratio is "); 

SET_COL(50); 

PUT(MASS_RATIO , FORE => 6, AFT => 2, EXP => 0); 


SET _COL(10); PUT("TO CONTINUE ENTER ANY INTEGER’); 
GET_INTEGER(); 
VIDEO.CLEAR_SCREEN; 


PRE AMF:=MASS RATIO*PRE AMF REFERENCE; 
NEW _LINE(2); 

SET_COL(10); 

PUT("Pre amf is "); 

SET _COLGO): 

PUT(PRE_AMF , FORE => 6, AFT => 2, EXP => 0); 
PUTC kgs"); 


AMF:=SPACECRAFT MASS BEFORE APOGEE BURN 


*(1.0-EXP((-DELTA_VELOCITY*1000.0)/(APOGEE MOTOR_IMPULSE*GRAVITY) 
)); 

NEW LINE(2); 

SET COL(10); 

PUT("AMF 1s ”); 

SET _COL(50); 

PUT(AMF , FORE => 6, AFT => 2, EXP => 0Q); 

PUT(" kgs"); 


POST_AMF:=SPACECRAFT MASS BEFORE APOGEE BURN-AMF-PRE_AMF; 


NEW_LINE(2); 

SET_COL(10); 

PUT("Post AMF is "); 

SET COL(50); 

PUT(POST_AMF , FORE => 6, AFT => 2, EXP => 0); 


PUT(" kgs"); 


MASS_CHANGE POST_AMF:=MASS RATIO*POST_AMF_ REFERENCE; 
NEW_LINE(2); 
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Sie COL(10); 

PUT("Mass Change POST AMF is "); 

SET_COL(50); 

PUT(MASS_CHANGE POST_AMF, FORE => 6, AFT => 2, EXP => Q); 
PUT(" kgs"); 


NEW _LINE(2); 


PUT LINE(" 3 2K 2K 2K 2K 2 2K 2K 2k 2k 2k 2k 2 26 2K 2 2 2 2K 2 6 2k 2k 26 2k 26 26 26 2K 2 2K 2K 2 2 2K 2 2 2K 2K 2K 2K 2K a aK a 3 aK 2k 2 2c 2 2c 2 2k ok 
JON). 


NEW _LINE(2); 


SET_COL(10); 
PUT("What is the specific impulse for ORBIT maintainance”), 
SETICOL(15); 
get_data(ORBIT_IMPULSE); 
VIDEO.CLEAR_ SCREEN; 
PUT("Specific Impulse of orbit maintainance is "); 
SET COL(60); 
PUT(ORBIT IMPULSE, FORE =>4, AFT => 1, EXP => 0); 
PU sec”); 
NEW LINE(); 


PUT _LIN E003 03 G3 gg GAB ABBE IBAA AAA EIA DAE I AICO AAG AIK 
JASE"). 


MASS_NS STATION KEEPING: =POST_AMF*(1.0- 


EXP((-DELTA_ VELOCITY NORTH _SOUTH)/(ORBIT_IMPULSE*GRAVITY*EFF_NS)) 
); 

NEW _LINE(1); 

SET COL(10); 

PUT("Change in mass for north south station keeping 1s"); 

SET COL(60); 

PUT(MASS_NS STATION KEEPING, FORE => 6, AFT => 2, EXP => 0); 

PUT(" kgs"); 


MASS _EW_ STATION KEEPING: =(POST_AMF-MASS NS_STATION_KEEPING)*(1.0- 
EXP((-DELTA_VELOCITY_ EAST WEST) 
/(ORBIT_IMPULSE*GRAVITY*EFF_EW))); 

NEW_LINE(2); 

pel COL(10); 

PUT("Change in mass for east west station keeping is"); 

SET COL(60); 

PUT(MASS_EW_ STATION KEEPING, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 


MASS_STATION_REPOSITIONING: =(POST_AMF-MASS NS STATION KEEPING 


-MASS_EW_STATION_KEEPING)*(1.0- 
EXP((-DELTA_ VELOCITY STATION_REPOSITIONING) 
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/(ORBIT_IMPULSE*GRAVITY*EFF_STATION_REPOSITIONING))); 

NEW _LINE(2); 

SET_COL(10); 

PUT("Change in mass for station repositioning is"); 

SET_COL(60); 

PUT(MASS STATION REPOSITIONING, FORE => 6, AFT => 2, EXP => 
0); 

PUT(" kgs"); 


mw EE a 2 2 2c 2 2 26 2k 2c 2c ic 2 2c ie ik 2k 2c 2ic 2k ic ic 2c 2k 2k 2c 2c 2c afc aye 2 2c 2c 2k 2k 2ic 2k 2ic 2c 2c 2ic 2c ic 2k 2c 2k 2 2k 2 2c 2c 2c 2c ic 2k 2k 2k 2k 2k 2k 


ON_ORBIT_CONTROL:=POST_AMF*(1.0 
-EXP((-DELTA_VELOCITY_DEORBIT)/(ORBIT_IMPULSE*GRAVITY))); 
NEW _LINE(2); 

SET _COL(10); 

PUT("On orbit control is "); 

SET COLI(60): 

PUT(ON_ORBIT_CONTROL , FORE => 6, AFT => 2, EXP => Q); 
PUT(" kgs"); 


EO IE 2 2 ok 2 2 2 ke 2 2 2k ak 2k 2 ake 2 2 ake 2 2 2k ak 2 ae a 2k 2 ok ak 2 2 2k 2 2k ak ak 2 2 ak af 2 2k 2k 2 2c ak 2k 2c ak ak 2 2k ak 2 2k 2k ak 


MASS_DEORBIT: =(POST_AMF-MASS_NS_ STATION KEEPING 
-MASS_EW_STATION_KEEPING-MASS STATION REPOSITIONING) *(1.0- 


EXP((-DELTA_ VELOCITY DEORBIT)/(ORBIT_IMPULSE*GRAVITY*EFF DEORBIT) 
)); 

NEW ILINE@); 

SET_COL(10); 

PUT("Change in mass for de-orbit is"); 

SET_COL(60); 

PUT(MASS_DEORBIT, FORE => 6, AFT => 2, EXP => Q); 

PUT(" kgs"); 


PRESSURANT:=MASS_RATIO*PRESSURANT_ REF; 

NEW LINE(2); 

SET _COL(10); 

PUT("Pressurant is "); 

SET _COL(60); 

PUT(PRESSURANT , FORE => 6, AFT => 2, EXP => 0); 
PUCE Skes.). 


PROPELLENT_MARGIN:=(MASS_NS STATION KEEPING+MASS_EW_STATION_KEEPI 
NG 
+ MASS STATION REPOSITIONING +MASS_DEORBIT 
+ PRE_AMF+MASS_CHANGE POST _AMF+PRESSURANT)*0.02; 
NEW_LINE(2); 
SET_COL(10); 
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PUT("Propellent margin is (2% safety margin) "); 

SET COL(60); 

PUT(PROPELLENT MARGIN, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 


-- Total mass change due to propellent expenditure 
PROPELLENT EXPENDITURE: =(PROPELLENT MARGIN*51.0)+AMF; 
NEW _LINE(2); 
SET _COL(10); 
PUT("Propellent Expenditure is"); 
SET COL(60); 
PUT(PROPELLENT EXPENDITURE, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 


SET _COL(10); PUT("TO CONTINUE ENTER ANY INTEGER"); 
GET INTEGER()); 
video.clear_screen; 


STRUCTURAL MASS: =0.087*(SPACECRAFT_MASS_ BEFORE APOGEE BURN);--ADA 
PTOR); 

NEW _LINE(2); 

SET _COL(10); 

PUT(" Structural mass is "); 

SET _COL(60); 

PUT(STRUCTURAL MASS, FORE => 6, AFT => 2, EXP => 0); 

PUT(" kgs"); 


SPACECRAFT BOL MASS:=SPACECRAFT_ MASS BEFORE APOGEE BURN 
-AMF-ADAPTOR-PRE AMF; 

NEW _LINE(2); 

SET _COL(10); 

PUT(" Spacecraft beginning of life mass is"); 

SET _COL(60); 

PUT(SPACECRAFT BOL MASS, FORE => 6, AFT => 2, EXP => Q); 

PUT(" kgs"); 


if DRUM_SPINNER = FALSE then 
THERMAL CONTROL MASS:=0.032*SPACECRAFT BOL MASS; 
NEW _LINE(2); 
SET COL(10); 
PUT(" Thermal control mass is "); 
SET _COL(60); 
PUT(THERMAL CONTROL MASS, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 
else 
THERMAL CONTROL MASS:=0.027*SPACECRAFT BOL MASS; 
NEW_LINE(2); 
SET _COL(10); 
PUT(" Thermal control mass is "); 
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SET COL(60); 
PUT(THERMAL CONTROL MASS, FORE => 6, AFT => 2, EXP => Q); 
PUT kgs"): 

end if; 


if DRUM_SPINNER = FALSE then 
ATTITUDE_CONTROL: =65.0 +0.022*(SPACECRAFT_BOL_MASS-700.0); 
NEW _LINE(2); 
SET_COL(10); 
PUT(" Attitude control _massis "); 
SET _COL(60); 
PUT(ATTITUDE_CONTROL, FORE => 6, AFT => 2, EXP => 0); 
PUT kess): 
else 
ATTITUDE_CONTROL: =31.0+0.027*(SPACECRAFT BOL MASS-700.0); 
NEW _LINE(2); 
SET COLdC); 
PUT(" Attitude_control_mass is "); 
SET _COL(60); 
PUT(ATTITUDE_ CONTROL, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 
end if; 


ELECTRICAL SYSTEM_MASS:=0.039*SPACECRAFT BOL MASS; 

NEW _LINE(2); 

SET_COL(10); 

PUT(" Electrical system mass is "); 

SET COL(60); 

PUT(ELECTRICAL SYSTEM MASS, FORE => 6, AFT => 2, EXP => QO); 
PUT(" kgs"); 


MECHANICAL SYSTEM_MASS:=0.014*SPACECRAFT BOL MASS; 

NEW LINE(2); 

SET COEGO); 

PUT(" Mechanical system mass is "); 

SET_COL(60); 

PUT(MECHANICAL SYSTEM MASS, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 


BYPROPELLENT_MASS:=0.084*PROPELLENT EXPENDITURE; 
NEW_LINE(2); 

SET _COL(10); 

PUT(” Propellent is "); 

SET_COL(60); 

PUT(BYPROPELLENT MASS , FORE => 6, AFT => 2, EXP => 0); 
PUT(" kgs"); 

NEW _LINE(2); 
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PROPELLENT PRESSURANT_MASS:=PROPELLENT_ EXPENDITURE-AMF; 

SET_COL(10); 

PUT("Mass of propellent pressurant is "); 

SET_COL(60); 

PUT(PROPELLENT PRESSURANT MASS,FORE => 6, AFT => 2, EXP => QO); 

PUT(" kgs"); 

NEW_LINE(2); 

SPACECRAFT DRY_MASS:=SPACECRAFT_ MASS BEFORE APOGEE BURN 
-PROPELLENT_ EXPENDITURE; 

SET _COL(10); 

PUT("Spacecraft Dry Mass is"); 

SET _COL(60); 

PUT(SPACECRAFT_ DRY_MASS,FORE => 6, AFT => 2, EXP => 0); 

PUT(" kgs"); 

NEW LINE(2); 


SET _COL(10); PUT("TO CONTINUE ENTER ANY INTEGER"); 
GET_INTEGER(I); 
VIDEO.CLEAR_SCREEN; 


MASS _MARGIN:=0.1*SPACECRAFT DRY_MASS; 
new_line(1); 

SET_COL(10); 

PUT("Spacecraft mass margin 1s"); 

SET_COL(S0); 

PUT(MASS_MARGIN,FORE => 6, AFT => 2, EXP => Q); 
PUT(" kgs"); 

NEW _LINE(2); 


COMM_PACKAGE MASS:= SPACECRAFT _MASS_BEFORE_ APOGEE BURN 
-STRUCTURAL_MASS 
-THERMAL_ CONTROL MASS 
-PROPELLENT_ EXPENDITURE 
-ATTITUDE_CONTROL 
-ELECTRICAL_SYSTEM_MASS 
-MECHANICAL SYSTEM MASS 
-MASS_ MARGIN 
-MASS_CHANGE POST AMF 
-PROPELLENT PRESSURANT_ MASS; 


SET_COL(10); 

PUT("Communications package mass is "); 

per SOL{5S0); 

PUT(COMM PACKAGE MASS,FORE => 6, AFT => 2, EXP => QO); 
PUT(" kgs"); 

NEW_LINE(2); 


BT LLIN (7% 55 2 5 2 te a ke 2k ke ke kes oo oe i oe kasi ao ok ask stokes ok ak 
Peat Aa ese ™) 
3 


NEW _LINE(2); 
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wen EK AK aK oR 2 2 2 2K 2 2 2 ok 2 2 2 2 ok ok 2 ok 2k ok ok 2 2 KK 2 2 ok KK Eo oo Ko oi 2 2 2k ok ok 2 2 ok 2k 2k 2 ok 


CREATE(OUTF,NAME= > "PROPBUDG.DAT"); 


-- header for propellent budget 
-- top line of header 

SET LINEUSE. bi: 

SET COL(OUTF, 1); 
PUT(OUTF,”"MANEUVER"); 
SET_COL(OUTF,25); 
PUT(OUTF," Delta”); 

SET COL(OUTF,35); 
PUT(OUTE, Specific’): 

SET _COL(OUTF,48); 
PUT(OUTF," Mass”); 

SET _COL(OUTF,58); 
PUT(OUTE: Final”): 
SET_COL(OUTF,66); 
PUT(OUTF, "Efficiency”); 


-- second line of header 
SET_LINE(OUTF,2); 
SET -COL(OUTE.23); 
PUT(OUTF, "Velocity”); 
SET COL(OUITE,35): 
PUT(OUTF, "Impulse"); 
SET _COL(OUTF,47); 
PUT(OUTF,"Change”); 
SET _COL(OUTF,58); 
PUT(OUTF,"Mass"); 


-- third line of header 
SET LINE(GUTE 3). 
SET -COLOUTE 25): 
PUT(OUTF,"(m/s)"); 
SET -COR(OUTE, 37): 
PUT(OUTF,"(s)"); 
SET COL(OUTF,48); 
PUT(OUTF,"(kg)"); 
SET COL(OUIE 55); 
PUT(OUTF, "(kg)"); 


SET_LINE(OUTF,4); 


-- start first data line 
SET_LINE(OUTF,S); 
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SET _COL(OUTF, 1); 
PUT(OUTF, "Separation"); 
SET _COL(OUTF,57); 


PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN,FORE= >4,AFT=>1,EXP=>0 


) 


-- second line of data 

SEteeINvECOUTF,7); 

pee COL(OUTF, 1); 

PUT(OUTF, "Before AMF”); 

SET COL(OUTF,46); 

PUT(OUTF,ADAPTOR,FORE= >4,AFT= >1,EXP=>0); 
SET_COL(OUTF,57); 


PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR,FORE= >4,AFT=> 
1,EXP=>0); 


-- third line of data 

SEL INE(OUTF,9); 

SET_COL(OUTF, 1); 

PUT(OUTF,”" AMF"); 

See OMOUTF,25); 

PUT(OUTF,DELTA_VELOCITY*1000.0, FORE= >4,AFT= >1,EXP= >0); 

pe eCOR(OUTF,37); 

PUT(OUTF,APOGEE MOTOR IMPULSE,FORE= >4,AFT=> 1,EXP= >0); 

SET COL(OUTF,46); 

PUT(OUTF,AMF,FORE= >4,AFT= >1,EXP= >0); 

SET_COL(OUTF,57); 

PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR-AMF 
,FORE= > 4,AFT=>1,EXP=>0); 

Sea eCOL(OUTF,69); 

PUTCOUTF,”"1.00”); 


-- fourth line of data 

SET LINE(OUTF,11); 

SET_COL(OUTF, 1); 

PUT(OUTF, "Post AMF"); 

SET_COL(OUTF, 46); 

PUT(OUTF,MASS CHANGE POST AMF,FORE= >4,AFT= >1,EXP= >0); 

Set COL(OUTF,57); 

PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE AMF-MASS CHANGE POST_AMF,FORE= >4,AFT=>1,EXP= >0); 

-- fifth line of data ns station keeping 

SET LINE(OUTF, 13); 

SET_COL(OUTF,1); 

PUT(OUTF,"N-S station keeping”); 

SET COL(OUTF,25); 

PUT(OUTF,DELTA VELOCITY NORTH _SOUTH,FORE= >4,AFT=>1,EXP= >0); 

SET_COL(OUTF, 37); 

PUT(OUTF,ORBIT_IMPULSE,FORE= >4,AFT=>1,EXP= >0); 

SET _COL(OUTF,46); 

PUT(OUTF,MASS NS STATION _KEEPING,FORE= >4,AFT= >1,EXP=>0); 

SET_COL(OUTF,57); 
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PUT(OUTF,SPACECRAFT_MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_ CHANGE POST AMF 
-MASS_NS_ STATION KEEPING,FORE= >4,AFT= > 1,EXP= >0); 

SET_COL(OUTF,69); 

PUT(OUTF,EFF_NS,FORE= > 1,AFT=>2,EXP= > 0); 


-- sixth line of data ew station keeping 

SET LINE(OUTF,15); 

SETZCOLVOUTE. 1): 

PUT(OUTF,"E-W station keeping"); 

SET “COL(OUME,25)- 

PUT(OUTF,DELTA_ VELOCITY EAST WEST,FORE= >4,AFT= >1,EXP=>0); 

SET_COL(OUTF,37); 

PUT(OUTF,ORBIT_IMPULSE,FORE= >4,AFT= >1,EXP= > 0); 

SET _COL(OUTF,46); 

PUT(OUTF,MASS EW STATION _KEEPING,FORE= >4,AFT= >1,EXP= >0); 

SEF COL(QUTE-57): 

PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE_AMF-MASS CHANGE POST AMF 
-MASS_NS_STATION_KEEPING-MASS EW_STATION_KEEPING 
,FORE=>4_AF I= > LL EXP—— 0). 

SET _COL(OUTF,69); 

PUT(OUTF,EFF_EW,FORE= > 1,AFT= >2,EXP= >0); 


-- seventh line of data station repositioning 
SET_LINE(OUTF, 17); 

SET COlmreoure tl); 

PUT(OUTF, "Station Repositioning"); 
SET ‘COL OUTE 25): 


PUT(OUTF,DELTA_ VELOCITY STATION REPOSITIONING,FORE= >4,AFT= > 1,EXP= 
> 0); 
SED COMOUTE;37); 
PUT(OUTF,ORBIT_ IMPULSE,FORE= >4,AFT= >1,EXP=>0); 
SET _COL(OUTF,46); 
PUT(OUTF,MASS STATION REPOSITIONING,FORE= >4,AFT= >1,EXP= >0); 
SET COL(OUTF,57); 
PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE_AMF-MASS_ CHANGE POST AMF 
-MASS_NS STATION _KEEPING-MASS EW_STATION_KEEPING 
-MASS_STATION_REPOSITIONING,FORE= >4,AFT= >1,EXP= >0); 
SET _COL(OUTF,69); 
PUT(OUTF,EFF STATION REPOSITIONING,FORE= > 1,AFT= >2,EXP= >0); 


-- eight line of data attitude control 

SET SEINE@UTE, 19); 

SET COL(OUTF, 1); 

PUT(OUTF, "Attitude Control"); 

SET COL(OUTF,46); 

PUT(OUTF,ON ORBIT _CONTROL,FORE= >4,AFT= >1,EXP= >0); 
SET COE @ULE;5/): 
PUT(OUTF,SPACECRAFT_ MASS BEFORE APOGEE BURN-ADAPTOR 
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-AMF-PRE_AMF-MASS_ CHANGE POST AMF 
-MASS_NS STATION _KEEPING-MASS_EW_STATION KEEPING 
-MASS._STATION_REPOSITIONING-ON_ORBIT_ CONTROL 
,FORE= >4,AFT= > 1,EXP= >0); 

SET_COL(OUTF,69); 

PUT(OUTF,EFF_NS,FORE= >1,AFT=>2,EXP=>0); 


-- ninth line of data de-orbit 

se) eINE(QUTF,21); 

SET_COL(OUTF, 1); 

PUT(OUTF, *De-orbit”); 

Sel sCOLCOUTF,25); 

PUT(OUTF,DELTA_ VELOCITY _DEORBIT,FORE= >4,AFT=>1,EXP=>0); 

se! COMOUTF,37); 

PUT(OUTF,ORBIT_IMPULSE,FORE= >4,AFT= >1,EXP= > 0); 

SET_COL(OUTF, 46); 

PUT(OUTF,MASS DEORBIT,FORE= >4,AFT= >1,EXP=>0); 

SETecOL(OUTF,57); 

PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE_ AMF-MASS CHANGE POST _AMF 
-MASS_NS_STATION_KEEPING-MASS EW _ STATION _KEEPING 
-MASS_ STATION REPOSITIONING-ON_ORBIT_CONTROL-MASS_ DEORBIT 
SFORE= >4,AFT=>1,EXP=>0); 

SET COL(OUTF,69); 

PUT(OUTF,EFF DEORBIT,FORE= >1,AFT=>2,EXP= >0); 


-- tenth line of data pressurant 

See INE(OUTF,23); 

SEmeeOL(OUTF,1); 

PUT(OUTF, "Pressurant”); 

SET_COL(OUTF, 46); 

PUT(OUTF,PRESSURANT,FORE= >4,AFT= > 1,EXP= >0); 

se) COL(OUTF,57); 

PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE AMF-MASS CHANGE POST AMF 
-MASS_NS_ STATION KEEPING-MASS EW _STATION_KEEPING 
-MASS_STATION REPOSITIONING-MASS DEORBIT-PRESSURANT 
,FORE= > 4,AFT= >1,EXP= >0); 


-- eleventh line of data margin propellent 

See LINE(OUTF,25); 

SET _COL(OUTF, 1); 

PUT(OUTF, "Margin Propellent"); 

SET_COL(OUTF,46); 

PUT(OUTF,PROPELLENT_MARGIN,FORE= >4,AFT= >1,EXP= >0); 

SET COL(OUTF,57); 

PUT(OUTF,SPACECRAFT MASS BEFORE APOGEE BURN-ADAPTOR 
-AMF-PRE AMF-MASS CHANGE POST _AMF 
-MASS_NS_ STATION KEEPING-MASS_EW_STATION_ KEEPING 
-MASS_STATION REPOSITIONING-MASS_DEORBIT-PRESSURANT 
-PROPELLENT MARGIN,FORE= >4,AFT= >1,EXP=>0); 

-- total mass change 
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SEq LINE(OUTE, 26); 
SET COL(OUTF, 1); 


PUNOUTE, 
") 

SETCLINEURE 27); 

SET_COL(OUTF, 1); 

PUT(OUTF, "Total Mass Change"); 

SET_COL(OUTF, 46); 

PUT(OUTF,ADAPTOR + AMF+PRE AMF+MASS CHANGE POST AMF 
+MASS NS STATION KEEPING+MASS EW STATION KEEPING 
+MASS STATION_REPOSITIONING+MASS_DEORBIT+PRESSURANT 
+PROPELLENT_MARGIN,FORE= >4,AFT= > 1,EXP= >0), 


CLOSE(OUTF); 


ww KK 2K 2K 2k 2K 2k 2 2k ik 2k 2k 2k 2k 2k 2k 2k 2 2 2k 2k 2k 2k 2c 2 2 2c 2 2 2 2k 2k 2k 2 2 2k 2k ok 2c 2k ok 2k 2c 2c oft 2c 2c 2c oc ok ok 2c 2c 2c ok ok 2 2 
NEW _LINE(1); 
SET_LINE(OUTM, 1); 
SET COL(OUTM, 10); 
PUT(OUTM,”"SPACECRAFT MASS SUMMARY’); 
SET_LINE(OUTM,2); 


PUT(OUTM,, "----n-nnonnnnn--onwnnwnnnnnwnncnsnnnnc ewan encanoaanann= 
aa seis ")3 

SET _LINE(OUTM,3); 

PUT(OUTM, Subsystem”); 

SET COL(OQUTM,40); 

PUT(OUTM, "Mass (kg)"); 

SET_LINE(OUTM,4); 


PU ai(QUWSDN 6 reece 
seonceeee ); 


-- Structure 

SET_LINE(OUTM,,6); 

PUT(OUTM, Structure”); 

SET COL(OQUTM,40); 

PUT(OUTM,STRUCTURAL MASS,FORE= >4,AFT=>1,EXP=>0); 


-- Thermal 

SET LINE(OUTM,8); 

PUT(OUTM, " Thermal"); 

SET COL(OUTM,40); 

PUT(OUTM, THERMAL CONTROL MASS,FORE= >4,AFT= > 1,EXP= >0); 


-- Propulsion 

SET _LINE(OUTM, 10); 
PUT(OUTM,"Propulsion"); 
SET_COL(OUTM,40); 
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PUT(OUTM,BYPROPELLENT MASS,FORE= >4,AFT= > 1,EXP=>0); 


-- Attitude Control 

SET LINE(OUTM, 12); 

PUT(OUTM, “Attitude Control"); 

SET_COL(OUTM,40); 

PUT(OUTM, ATTITUDE_CONTROL,FORE= >4,AFT= > 1,EXP=>0); 


-- Electric Integration 

SET_LINE(OUTM, 14); 

PUT(OUTM, "Electric Integration"); 

SET _COL(OUTM,40); 

PUT(OQUTM,ELECTRICAL SYSTEM MASS,FORE= >4,AFT=>1,EXP= >0); 


-- Mechanical Integration 

SET LINE(OUTM, 16); 

PUT(OUTM, "Mechanical Integration”); 

SET COL(OUTM,40); 

PUT(OUTM,MECHANICAL SYSTEM MASS,FORE= >4,AFT= >1,EXP= > 0), 


-- Mass Margin 

SET LINE(OUTM, 18); 

PUT(OUTM, "Mass Margin"); 

SET _COL(OUTM,40), 

PUT(OUTM,MASS_ MARGIN,FORE= >4,AFT= > 1,EXP= >0); 


-- Dry Spacecraft Mass 

SET LINE(OUTM,20); 

PUT(OUTM, "Dry Spacecraft Mass”); 

SET COL(OUTM,40); 

PUT(OUTM,SPACECRAFT DRY_MASS,FORE= >4,AFT= >1,EXP= >0); 


-- Propellent Pressurant 

SET LINE(OUTM,22); 

PUT(OUTM, "Propellent Pressurant”); 

SET _COL(OUTM,40); 

PUT(OUTM,PROPELLENT PRESSURANT_ MASS,FORE= >4,AFT= > 1,EXP= >0), 


-- Apogee Motor Expendable 

SET LINE(OUTM,?24); 

PUT(OUTM, "Apogee Motor Expendable"); 

SET COL(OUTM,40); 

PUT(OUTM,AMF,FORE= >4,AFT= >1,EXP= >0); 


-- Spacecraft Mass at Separation 
SET_LINE(OUTM,26); 
PUT(OUTM, "Spacecraft Mass at Seperation"); 
SET COL(OUTM,40); 
PUT(OUTM,SPACECRAFT MASS BEFORE APOGEE BURN,FORE= >4,AFT=>1,EXP=>0 
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); 


en FE 2 2 2 2c a 2 2 2 2 ak a 2c 2 2k ak 2c 2c 2 2 2k ak 2c ik 2 2k 2k ik ic 2c 2c ak ak 2c 2c 2k 2 2k 2c 2 2k 2k a 2 ak ak 2k 2k 2k ak 2c 2k 2k ak ait 2c 2k ak ak > 2 2k 2k 
3k 2k 2K ak 2k 2k 2k 2k 2 2k 


end MASS; 


procedure ELECTRICAL SYSTEM 
(SPACECRAFT MASS BEFORE APOGEE BURN : in 
FEOAT, 
DRUM_SPINNER > In out 
BOOLEAN; 
COMM_PACKAGE MASS : in 
FLOAT) is 


NO, 

N, 

Y, 

aes, 

CHAR : CHARACTER; 


SOLAR_ARRAY, -- kg 

CHARGE ARRAY, -- kg 

SHUNT, -- kg 

CHARGE CONTROL, -- kg 

BATTERY, -- kg 

DISCHARGE REGULATOR : FLOAT; -- kg 

LIFE FACTOR: FLOAT 105: -- 

POWER_MARGIN : FLOAT a tee -- 
margin for error 

TTC_FACTOR : FLOAT — ley a. -- TT&C 
scale factor 

TRACKING TELEMETRY REFERENCE: FLOAT := 28.0; -- 
intelsat v 

INTEESAT 7 REFERENCE * FLOAT -=3445 0; 

INTELSAT 6 REFERENCE : FLOAT = — 570070. 

INTELSAT 5 REFERENCE : FLOAT  :=1900.0; 

INTELSAT_7 ANTENNA MASS > FEOAT? #2 =708; 

INTELSAT 6 ANTENNA MASS > FLOAT  :=309.0; 

INTELSAT 5 ANTENNA MASS <PLOAL: “25570; 


INTELSAT 5 HOUSEKEEPING POWER: constant FLOAT := 211.0; -- 
intelsat V 
INTELSAT_ 6 HOUSEKEEPING POWER: constant FLOAT := 347.0; -- 


intelsat VI 
INTELSAT_7 HOUSEKEEPING POWER: constant FLOAT := 613.0; -- 
intelsat VII 


ELECTRICAL POWER MASS, 
COMM EEECTRIGAL SUSSYSTEM@MASS, 


110 


BATTERY LOAD, 
PAYLOAD POWER, 
PAYLOAD MASS, 
ANTENNA MASS, 
REFERENCE, 
HOUSEKEEPING POWER, 
SOLAR_ARRAY_ LOAD, 
POWER FACTOR, 

X, 


TRACKING TELEMETRY : FLOAT; 


CHOICE : INTEGER; 


-- Reads an integer input from the keyboard 


begin 
REFERENCE:=INTELSAT 5 REFERENCE; 
ANTENNA _MASS:=INTELSAT_5 ANTENNA MASS; 
HOUSEKEEPING POWER:=INTELSAT 5 HOUSEKEEPING POWER; 


-- The mass of the electrical power system 1s 
NEW_LINE(2); 
SET_COL(10); 
PUT _LINE("Enter the POWER requirements of the”); 
SET_COL(i0); 
PUT_LINE("Spacecraft in watts as a real number"); 
SET COL(15); 
GET DATA(PAYLOAD_ POWER); 
VIDEO.CLEAR_SCREEN; 
NEW LINE(2); 
sem COL(15); 
PUT("Payload power requirements are "); 
SET _COL(60); 


PUT(PAYLOAD POWER, FORE => 6, AFT => 2, EXP => 0); 
NEW _LINE(2); 


ear ce TA EEE ES EEE EEE EEE ee 
aoe RE"). 

Mew LINE(2); 

SET COL(S); 

PUT_LINE("Choose which satellite you want as your reference 
for "); 

sen COL(S); 

PUT_LINE("housekeeping power, mass in kilograms, and Antenna 
Mass "); 

en COL(S); 

PUT_LINE(" Intelsat V Intelsat VI Intelsat 
vil"); 
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SEI JCOL()); 

PUT_LINE(" Mass 1900.0 kgs 3700.0 kgs 
3445.0 kgs"); 

SET sCOL); 

PUT _LINE("Antenna Mass 59.0 kgs 309.0 kgs 
75.0 kgs”); 

SE@2COL (5); 

PUT _LINE("Housekeeping 211.0 Watts 347.2 Watts 
613.0 Watts"); 

PUT LINE("Power"); 

SET COLG); 


PUT PD aaa aaa lastest daa gh cit tat dott CEE Sah ih i ei dt E 
FOIA"). 
SETTCOL(S); 
PUT_LINE("For an INTELSAT V reference enter an integer ’1’ 
Ne 
SE ICOLG); 
PUT_LINE("For an INTELSAT VI reference enter an integer °2’ 
“Dr 
SET _COL(5); 
PUT _LINE("For an INTELSAT VII reference enter an integer ’3’ 
"); 
SET -COLG); 
PUT_LINE("TO USE YOUR OWN REFERENCE VALUES enter an integer 
AG 3) 

GET_INTEGER(CHOICE); 


case CHOICE is 
when |= > 
REFERENCE; -INITELSAT 3 KEFERENCE- 
ANTENNA MASS:=INTELSAT 5 ANTENNA MASS; 
HOUSEKEEPING POWER:=INTELSAT 5 HOUSEKEEPING POWER; 


when 2= > 

REFERENCE: =INTELSAT 6 KREGERENCE: 
ANTENNA_MASS:=INTELSAT 6 ANTENNA MASS; 
HOUSEKEEPING POWER:=INTELSAT 6 HOUSEKEEPING POWER; 


when 3= > 

REFERENCE:=INTELSAT 7 REFERENCE; 

ANTENNA _MASS:=INTELSAT_7 ANTENNA MASS; 
HOUSEKEEPING POWER:=INTELSAT_7 HOUSEKEEPING POWER; 
when 4= > 

PUT("Enter Satellite Mass Reference"); 

SET COL(15); 

GET DATA(KEPERENGE), 

NEW _LINE(3); 


PUT("Enter Satellite Antenna Mass Reference"); 
SET _COL(15); 
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GET_DATA(ANTENNA MASS); 
NEW _LINE(3); 


PUT("Enter Satellite Housekeeping Power Requirements 
Reference"); 

SET COL(15); 

GET DATA(HOUSEKEEPING POWER); 

NEW _LINE(3); 


when OTHERS = > 

NEW LINE(2); 

SET _COL(5); 

PUT("Understand INTELSAT V DATA WILL BE USED"); 
end case; 


VIDEO.CLEAR SCREEN; 


PUT LINE(*" 36 2k 2s og 2k 2k 2 2k 2k 2c 2s ok 26 2k 2 2c 2k ois ok 3k 2k 2k ois ois ok 29s ok 3k 2k 2k ois 2K ois 2k ok 2k 2k ois 2K 2k 29s 3K 2K 2k 2 2K ok 26 og ok 2K 2K 2c 3 ok 
SOE") 


INE LINE; 

HOUSEKEEPING POWER:=(SPACECRAFT MASS BEFORE APOGEE BURN 
‘REPERENCE) 
*HOUSEKEEPING POWER; 

NEW _LINE(2); 

Sec OL(10); 

PUT(" Housekeeping power is "); 

SET _COL(S50); 

PUT(HOUSEKEEPING POWER, FORE => 6, AFT => 2, EXP => Q); 

PUT(" kg"); 


? 


BATTERY LOAD: =(HOUSEKEEPING POWER+PAYLOAD_ POWER)*LIFE FACTOR; 
NEW _LINE(2); 

SET_COL(10); 

PUT(" Battery load is "); 

SET_COL(50); 

PUT(BATTERY LOAD, FORE => 6, AFT => 2, EXP => 0); 

PUT(" kg"); 


SOLAR ARRAY LOAD:=BATTERY LOAD*POWER_ MARGIN; 

NEW _LINE(2); 

SET_COL(10); 

PUT(" Solar array load is "); 

SET COL(50); 

PUT(SOLAR_ARRAY LOAD, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kg"); 
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--ELECTRICAL POWER MASS:=(PAYLOAD_POWER+HOUSEKEEPING POWER)*(BATT 


TERY LOAD+SOLAR_ARRAY LOAD); 


if DRUM_SPINNER = FALSE then 


if BATTERY_LOAD < 1875.0 then 
SOLAR_ARRAY := 50.0; 
CHARGE_ARRAY := 7.8; 
SHUNT = 7.5; 


CHARGE CONTROL >= lis. 


BATTERY = $6.8; 
DISCHARGE REGULATOR 


elsif BATTERY LOAD < 3125.0 then 
SOLAR _ARRAY 

CHARGE ARRAY 
SHUNT eo 


BATTERY := 47.3; 
DISCHARGE REGULATOR 


elsif BATTERY LOAD < 4375.0 then 
SOLAR_ARRAY 
CHARGE ARRAY 
SHUNT ee 
CHARGE CONTROL 
BATTERY 


DISCHARGE REGULATOR 


iad a3. 


elsif BATTERY LOAD >= 4375.0 then 
SOLAR ARRAY 

CHARGE ARRAY 
SHUNT ips 


BATTERY eo 
DISCHARGE REGULATOR 
end if; 


elsif BATTERY _LOAD < 1875.0 then 
SOLAR_ARRAY 
CHARGE ARRAY 
SHUNT := 7.5; 


BATTERY := 56.8; 
DISCHARGE REGULATOR 


else 
SOLAR_ARRAY 
CHARGE ARRAY 


c= 4220- 
<= 6.6% 


i=7335°0: 
a a 


oe 
[750 9- 


s= 125.0; 
:=.1 9:5; 
--kg 
CHARGE CONTROL >= 1.5; 


:= 70.0; 
5 1G: 


-- kg 
-- kg 


-- kg 


-kg 
Paez 


sake 


Beli 
-- kg 


-- kg 
CHARGE CONTROL := 1.5; 


-- kg 


-- kg 
we 


-- kg 


-- kg 
-- kg 


-- kg 
le 


-- kg 


--kg 
FOI 22 


-- kg 


ke 
-- kg 


-- kg 
CHARGE_CONTROL := 1.5; 


-- kg 


eae 
ie 6 52 


-- kg 


-- kg 
-- kg 


eis 


-- kg 
-= 0.2: 


ales 


-- kg 
-- kg 
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SHUNT =e); -- kg 


CHARGE CONTROL {ee -- kg 

BATTERY e405: -- kg 

DISCHARGE REGULATOR OL): -- kg 
end if; 


POWER _FACTOR:= LIFE FACTOR 


*(POWER MARGIN*SOLAR ARRAY+POWER MARGIN*CHARGE ARRAY 

+SHUNT+ CHARGE CONTROL+BATTERY +DISCHARGE REGULATOR) 
*0.001; 

NEW LINE(2); 

SET _COL(10); 

PUT(" Power Factor is "); 

SET_COL(50); 

PUT(POWER_ FACTOR, FORE => 4, AFT => 4, EXP => 0); 


ELECTRICAL POWER MASS:=(PAYLOAD POWER+HOUSEKEEPING POWER)*POWER F 
ACTOR; 

NEW_LINE(2); 

SET _COL(10); 

PUT(" Electrical power sub-system mass is "); 

SET COL(50); 

PemeeleClRICAL POWER MASS, FORE => 6, AFT => 2, EXP => 0); 

PUT(" kg"); 


PAYLOAD MASS:= COMM PACKAGE MASS-ELECTRICAL POWER MASS; 
NEW_LINE(2); 

SET _COL(10); 

PUT(" Payload mass is "); 

SET _COL(50); 

PUT(PAYLOAD MASS, FORE => 6, AFT => 2, EXP => 0); 

BUT kg"); 


TRACKING TELEMETRY:= 
(SPACECRAFT MASS BEFORE APOGEE BURN/REFERENCE) 
*TRACKING TELEMETRY REFERENCE; 
NEW LINE(2); 
SET _COL(10); 
PUT(" Tracking telemetry and control mass is "); 
SET_COL(S0); 
PUT(TRACKING TELEMETRY, FORE => 6, AFT => 2, EXP => 0); 
PUT(" kg"); 
mew EE EK OK aK 2 2 HE 2 2 2 2 2 2 2 a a 2 2 2 2 2g 2 2k 2k 2 2 2 a 2 2k 2k oe 2k 2 2 2K oc ig of 2 2K oc ofc 2 2K 2 2 ofc ok ok ok akc ok 2 2k ak a ak 2k ok 
3K 2K 2 


-- communications 
SET LINE(OUTM,28); 
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PUT(OUTM, "Communications"); 7 
SET COL(OUTM,40); 
PUT(OUTM,PAYLOAD MASS,FORE= >4,AFT=>1,EXP=>0); 


-- Antennas 

SET _LINE(OUTM,30); --* 
PUT(OUTM, "Antenna Reference Mass"); 

SET COL(OUTM,40); 

PUT(OUTM,ANTENNA_ MASS,FORE= >4,AFT=>1,EXP= >0); 


-- electric power subsystem mass 

SET_LINE(OUTM,, 32); 

PUT(OUTM, "Electric Power"); --* 

SET _COL(OUTM,40); 

PUT(OUTM,ELECTRICAL POWER_MASS,FORE= >4,AFT= >1,EXP= >0); 


-- Telemetry and Control 

SET_LINE(OUTM,34); 

PUT(OUTM, "Telemetry and Command"); --* 

SET COL(OUTM,40); 

PUT(OUTM,TRACKING TELEMETRY ,FORE= >4,AFT=>1,EXP=>0); 


me RK aK oe a oe oe oe 2 oo 2 2 oc 2 oe oe 2 eo 2 oe og OK oe oie fe 2 2 2c 2c oe 2c 2 2 ie i oie ok oi 2c oe oie ok 2 2 ok 2K OK OK 


2K OK 2K KK 


end ELECTRICAL SYSTEM; 


S22 282 2 O88 SSO ee OSS eee OG es ese eS S22 S22 SC SS SSCS SS SSF SSF SF SSCS FFF SSF SF 2 ee Fe ee 222822 


2 2 2 2 2 O22 8 O22 O82 SOS SS Se SSeS ee Bes SSF SS SSS S28 SSS SCS SCS SF SSF SF SS SF SF SSF SF SF ee Se eee 


begin 
CREATE(OUTM,NAME= > "SYSMASS.DAT"); 


DUAL _ SPIN (DRUM_SPINNER); 


VELOCITY (INCLINATION_RADIANS, 
DELTA VELOCITY); 


STATION KEEPING REPOSITIONING (DELTA VELOCITY NORTH SOUTH, 
DELTA VELOCITY EAST WEST, 
DELTA VELOCITY STATION REPOSITIONING, 
EFF_NS, 
EFF EW); 


MASS (DELTA_VELOCITY NORTH SOUTH, 
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DELTA VELOCITY EAST WEST, 

DELTA VELOCITY STATION REPOSITIONING, 
DELTA VELOCITY, 

EFF_NS, 

EFF EW, 

COMM_PACKAGE MASS, 
SPACECRAFT_MASS_ BEFORE APOGEE BURN); 


ELECTRICAL SYSTEM (COMM PACKAGE MASS, 
DRUM_SPINNER, 
SPACECRAFT MASS BEFORE APOGEE BURN); 


CLOSE(OUTM); 


SET_COL(10);PUT("TO CONTINUE ENTER ANY INTEGER’); 
GET_INTEGER()); 

VIDEO.CLEAR_ SCREEN; 

NEW_LINE(2); 

PUT_LINE("DATA FOR THIS DESIGN RUN ARE LOCATED IN THE 
FOLLOWING FILES:"); 

NEW_LINE(1): 

PUT_LINE(" SYSMASS.DAT’); 

PUT_LINE(" PROPBUDG.DAT "); 

NEW _LINE(2); 

PUT_LINE("TO KEEP DATA FROM BEING ERASED ON NEXT RUN’); 

PUT_LINE("USE DOS COMMAND REN (RENAME) "); 

NEW _LINE(1); 

PUT_LINE("EXAMPLE - REN SYSMASS.DAT SYSMASS.XYZ’); 


end MASSPRO; 
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I, Electric Photovoltaic Power System 


-- Title : Solar Power Determination 

-- Author : David Lashbrook 

-- Date : 01 February 1992 

-- Revised : 12 May 1992 

-- Compiler : OPENADA EXT 

-- Description : This procedure determines the solar power and number of 


-- cells required in to provide stated power requirements 
for a geosynchronous orbit. 


--with TEXT_IO, GENERIC ELEMENTARY FUNCTIONS, GETDATA, VIDEO; 
--use TEXT_IO, GETDATA ; 


with TEXT_I0, MATH_LIB, GETDATA, VIDEO; 
use TEXT IO, MATH LIB, GETDATA; 


procedure SOLARPOWER is 

package FLOAT_INOUT is new FLOAT_IO(FLOAT); 

use FLOAT INOUT; 

package INTEGER _INOUT is new INTEGER _IOU/NTEGER); 

use INTEGER INOUT; 

package BOOLEAN INOUT is new ENUMERATION IO(BOOLEAN); 

use BOOLEAN INOUT; 
-- package GEF INOUT is new GENERIC ELEMENTARY FUNCTIONS(FLOAT); 
-- use GEF INOUT; 


BUS_ VOLTAGE ALLOWABLE DEVIATION : FLOAT: =0.5; 


BYPASS DIODE VOLTAGE DROP : FLOAT: =1.1; -- V_DD 
-- V_D Open circuit failure of one cell + minimum battery discharge voltage at EOL 


EOL BATTERY DISCHARGE VOLTAGE : FLOAT: =1.10; 
DEPTH _OF DISCHARGE : FLOAT: =0.65; 
ECLIPSE TIME : FLOAT: = 1.20; 


MAXIMUM_BATTERY_ CHARGE VOLTAGE _ : FLOAT:= 1.5; 

SERIES CONNECTED DIODE VOLTAGE_DROP : FLOAT:= 0.8; 
NUMBER_SERIES CONNECTED DIODES: FLOAT:= 3.0; -- 3 assumed 
BATTERY CHARGER VOLTAGE DROP : FLOAT: = 1.75; 
CHARGE_DISCHARGE_EFFICIENCY BATTERY : FLOAT: = 0.9; 


EQUINOX CHARGE RATE : constant FLOAT := 15.0; -- autumn 
SOLSTICE CHARGE RATE : constant FLOAT := 45.0; -- summer 
PI : constant FLOAT := 3.14159265359; 


SPACECRAFT LIFE, 
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SPACECRAFT MASS BEFORE APOGEE BURN, 
PAYLOAD POWER, 

CELL_AH, 

BUS_POWER, 

SERIES CELLS FOR MIN DIS VOLT, --N 
VOLTAGE DROP BATTERY DC DIODES, -- V_DD 


VOLTAGE BUS LOW, -- LOWEST VOLTAGE ON BUS 
CHARGING VOLTAGE, -- MAXIMUM_ CHARGE VOLTAGE 
BATTERY CHARGING VOLTAGE DROP, -- 

VOLTAGE CHARGE ARRAY, -- voltage charge array 

SERIES CELLS FOR_MIN_DIS_VOLT, 

EFFICIENCY, 


POWER EQUINOX CHARGE, 
EQUINOX CHARGE TIME, 
POWER SOLSTICE_CHARGE, 
SOLAR_ARRAY, 
CHARGE_ARRAY, 

SHUNT, 
CHARGE_CONTROL, 
DISCHARGE_REGULATOR, 
PAYLOAD POWER, 
BATTERY LOAD, 
MINIMUM_DISCHARGE BUS VOLTAGE, -- V_DB 
BUS_VOLTAGE, 
NUMBER _OF BUSES, 


SOLAR_ARRAY_LOAD ; FLOAT; 

LIFE FACTOR SPLOAL © © =" 1-05: -- 
POWER_MARGIN > FLOAT,.:= 1.1; -- margin for error 
INTELSAT_7_ REFERENCE : FLOAT =: =3445.0; -- kgs 
INTELSAT 6 REFERENCE > FLOAT) =: =2227.0; -- kgs 
INTELSAT_ 5 REFERENCE : FLOAT :=1900.0; -- kgs 


INTELSAT_7 HOUSEKEEPING POWER: constant FLOAT := 613.0; -- intelsat VII 
INTELSAT_6 HOUSEKEEPING POWER: constant FLOAT := 347.0; -- intelsat VI 
INTELSAT_ 5 HOUSEKEEPING POWER: constant FLOAT := 211.0; -- intelsat V 


26 

MASS_ REFERENCE, 

HOUSEKEEPING POWER, 
HOUSEKEEPING POWER REFERENCE — : FLOAT: 


FINAL : BOOLEAN :=TRUE; 
DRUM_SPINNER : BOOLEAN := FALSE; 
> 

y; 

N, 

0D, 

CHAR : CHARACTER ; 


CHOICE, 
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N_INTEGER, 


J 


: INTEGER ; 


procedure PRINT HEADER is 


begin 


VIDEO.CLEAR_ SCREEN;SET_ LINE(1); 

NEW _LINE(2); 

SET _COL(10); 

PUT_LINE("This program walks through a basic design of the power"); 
SET_COL(10); 

PUT_LINE("requirements of a solar powered geosynchronous satellite.”); 
NEW _LINE; 

SET_COL(10); 

PUT_LINE("All pertinent data will be written to files."); 
SET_COL(10); 

PUT_LINE("CELPARAM.DAT and SOLCELL.DAT"); 
new_line(1); 


end PRINT_HEADER; 


procedure DUAL_SPIN (DRUM_SPINNER: in out BOOLEAN) is 
begin 


SET _COL(10); 

PUT_LINE("Is your spacecraft Spin Stabilized "); 
SET COLES): 

GET CHARACTER (char); 

if CHAR = ’Y’ or CHAR = ’y’ then 


DRUM_SPINNER:=TRUE; 
if DRUM_SPINNER = TRUE then 
VIDEO.CLEAR_SCREEN;SET_LINE(1); 
SET _COL(10); 
PUT_LINE("Satellite is Spin Stabilized"); 
MINIMUM_DISCHARGE BUS_ VOLTAGE: =35.0; -- V_DB 
BUS VOLTAGE: =50.0; 
NEW LINE(2); 
PUT _LINE (3 HH He Haddedcciccdciicoiiiioicicioiiioack cca a cRa aaa ACER AAA AAA CK) 


end if; 


else 


VIDEO.CLEAR_SCREEN;SET_LINE(1); 

SET _COL(10); 

PUT LINE("Satellite is Three Axis Stabilized"); 

MINIMUM_ DISCHARGE _BUS VOLTAGE: =30.0; -- V_DB 
BUS_ VOLTAGE: =42.0; 

NEW _LINE(2); 


PUT _LINE(* FoR RR A AE A SR ROR AE RA A Nee Nee A A EA AR ee aa ne 


° 
b 


end if; 


end DUAL SPIN; 


procedure OPERATING DATA (BATTERY LOAD : in out FLOAT; 
DRUM_SPINNER : in out BOOLEAN; 
MINIMUM_DISCHARGE BUS VOLTAGE : in out FLOAT; 
BUS VOLTAGE : in out FLOAT; 


120 


® 
? 


BYPASS DIODE VOLTAGE DROP : in out FLOAT; 
EOL BATTERY DISCHARGE VOLTAGE : in out FLOAT; 


BUS POWER : in out FLOAT; 
PAYLOAD POWER : in out FLOAT; 
DEPTH OF DISCHARGE : in out FLOAT; 
number_of_buses : in out FLOAT; 
SPACECRAFT LIFE : in out FLOAT; 
ECLIPSE TIME : in out FLOAT) is 

CHOICE, 

INPUT INTEGER ; 

REPLACE : BOOLEAN := FALSE; 

begin 


SET COL(10); 

PUT LINE("Enter the mass of the spacecraft in kilograms"); 
NEW_LINE(2); 

SET COL(10); 

GET _DATA(SPACECRAFT MASS BEFORE APOGEE BURN); 
VIDEO.CLEAR_ SCREEN; 

SET _COL(15); 

PUT("Spacecraft mass before apogee motor bum is "); 
PUT(SPACECRAFT MASS BEFORE APOGEE BURN, FORE => 6, AFT => 2, EXP => Q); 
PUT(" kgs"); 

NEW _ LINE(2); 

eee eg ge EEE EEE EERE EERE EE REESE") 


NEW LINE(2); 


bd 


MASS_REFERENCE:=INTELSAT 5 REFERENCE; 
HOUSEKEEPING POWER REFERENCE:=INTELSAT 5 HOUSEKEEPING POWER; 


-- The mass of the electrical power system is 
SET _COL(10); 
PUT _LINE("Enter the POWER requirements of the Spacecraft in watts.”); 
NEW _LINE(2); 
se) COL(15); 
GET DATA(PAYLOAD POWER); 
VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 
PUT("Payload power requirements are "); 
SET_COL(S50); 
PUT(PAYLOAD_ POWER, FORE => 6, AFT => 2, EXP => Q); 
PUT(" Watts"); 
NEW _LINE(2); 
PN tae ee ee ROR RRR CR Ee ER ek ee ee Re EEE) 


° 
b 
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NEW _LINE(2); 

SET _COL(5); 

PUT_LINE("Choose which satellite you want as your reference for "); 

SET COL(); 

PUT LINE(“housekeeping power and spacecraft mass in kilograms."); 

NEW _LINE(2); 

PUT LINE RE a ae ea 


NEW LINE(1); 


e 
bf 


PUTSEINE,” cil i BS ay: 
SETZCOEG): 

PUTLEINEC Intelsat V_—s Intelsat VI__—— Intelsat VII"); 
SETI COL(S); 

PUT_LINE("Mass 1900.0 kgs 2227.0kgs 3445.0 kgs"); 
SET _ COLG): 

PUT _LINE("Housekeeping 211.0 347.0 613.0 "); 
SET COE(S); 


PUT LINE("Power" ); 

PUT LIN (eH Hs HSH H bd eSbb dik iobeciiieoicioiiciiciaicioick ioe tcioioicoicisisot tok tot ataiok aoe!) 
SET _COL(5); 

PUT_LINE("For an INTELSAT V_ reference enter integer °1’ "); 


bf 


SET LCOLG): 
PUT_LINE("For an INTELSAT VI reference enter integer °2’ "); 
SET 'COLEG); 
PUT_LINE("For an INTELSAT VII reference enter integer °3’ "); 
SET _COL(S); 


PUT_LINE("For your own reference value’s enter integer °4’ "); 
GET INTEGER(CHOICE); 


case CHOICE is 
when 1=> 
MASS_REFERENCE:=INTELSAT_ 5 REFERENCE; 
HOUSEKEEPING POWER REFERENCE:=INTELSAT_5 HOUSEKEEPING POWER; 


when 2= > 
MASS _REFERENCE:=INTELSAT 6 REFERENCE; 
HOUSEKEEPING POWER _ REFERENCE: =INTELSAT_ 6 HOUSEKEEPING POWER; 


when 3= > 
MASS_REFERENCE:=INTELSAT_7 REFERENCE; 
HOUSEKEEPING POWER REFERENCE: =INTELSAT_7 HOUSEKEEPING POWER; 


when 4= > 
NEW_LINE(2); 
PUT LIN EC 8* #484 4524444 EERE AIEEE Ee ee 
NEW LINE(2); 
VIDEO.CLEAR SCREEN; 
PUT("Please enter desired REFERENCE MASS"); 
SET COL(15); 
GET DATA(MASS_ REFERENCE); 
VIDEO.CLEAR SCREEN; 


b] 
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NEW_LINE(2); 
ODN ee a kee eee EEE” 
NEW _LINE(2); 
PUT("Please enter desired HOUSEKEEPING POWER reference”); 
Ser COL(15); 
GET DATA(HOUSEKEEPING POWER_REFERENCE); 
VIDEO.CLEAR_ SCREEN; 

when OTHERS => 
NEW_LINE(2); 
Sel COL(S); 
PUT("Understand INTELSAT V DATA WILL BE USED"); 

end case; 


® 
> 


HOUSEKEEPING POWER:=(SPACECRAFT MASS BEFORE APOGEE BURN 
IMASS_ REFERENCE) 
*HOUSEKEEPING POWER_REFERENCE; 

VIDEO.CLEAR_ SCREEN; 

NEW LINE; 

PUT("Housekeeping power is "); 

SET_COL(60); 

PUT(HOUSEKEEPING POWER, FORE => 6, AFT => 2, EXP => 0); 


NEW _LINE()); 

BATTERY LOAD:=(HOUSEKEEPING POWER+PAYLOAD_ POWER)*LIFE_ FACTOR; 
PUT("Battery load is (multplied by life factor of 1.05)"); 

SET _COL(60); 

PUT(BATTERY LOAD, FORE => 6, AFT => 2, EXP => QO); 


NEW _LINE(1); 

SOLAR_ARRAY LOAD:=BATTERY LOAD*POWER MARGIN; 
PUT("Solar array load is (multiplied by power factor of 1.10) "); 

SET _COL(60); 

PUT(SOLAR_ARRAY_ LOAD, FORE => 6, AFT => 2, EXP => 0); 


new_line(2); 
PUT_LINE("The Battery Load value will be used in future calculations. "); 
PUT_LINE("If you want to change this value enter a ‘y’ for YES. If you wish to "); 
PUT _LINE(‘retain the value enter a ‘n’ for NO. The value you enter "); 
put_line("should be the BATTERY _LOAD."); 
PUT_LINE("BATTERY LOAD = PAYLOAD POWER REQUIREMENTS + HOUSEKEEPING POWER"); 
PUT _LINE("This value is the BATTERY LOAD and will have no design factors "); 
PUT _LINE("applied to it."); 
Ser COL(10); 
NEW_LINE(2); 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 

VIDEO.CLEAR SCREEN; 

NEW _LINE(1); 

PUT("Payload power requirements are "); 
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SET COL(SS); 

PUT(PAYLOAD POWER, FORE => 6, AFT => 2, EXP => 0); 

PUT(" Watts”); 

new_line(2); 

PUT("Calculated Housekeeping power is "); 

SET COLO): 

PUT(HOUSEKEEPING POWER, FORE => 6, AFT => 2, EXP => 0); 

PUT(" Watts”); 

new_line(3); 

PUT("Please enter a value for the Battery Load"); 

NEW 2eINE(2); 

PUT("Remember to add your new housekeeping value to the payload power"); 

NEW_LINE(3); 

GET DATA(BATTERY LOAD); 

NEW _LINE(2); 

PUT LINE( "#8885 50 eee ee eae ee 

NEW LINE(2); 

VIDEO.CLEAR SCREEN; 

PUT("Battery Load is "); 

SET COL(60); 

PUT(BATTERY_ LOAD, FORE => 6, AFT => 2, EXP => Q); 

NEW LINE(1); 

NEW _LINE(2); 

SOLAR_ARRAY LOAD:=BATTERY_ LOAD*POWER MARGIN; 

PUT("Solar array load is (multiplied by power factor of 1.10) "); 

SET COL(60); 

PUT(SOLAR_ARRAY LOAD, FORE => 6, AFT => 2, EXP => 0), 
end if; 


e 
3 


NEW _LINE(2); 


PUTLEINEC aco a ae ae 2k ok a ak 2k hc ie 2s ae tea ake ake see oi otc a ak eek oe 22k aa A ao ae OE ee ee 


NEW_LINE(2); 


° 
3 


PUT("Please enter the spacecraft life in years”); 

NEW IEINE(2): 

SET_COL(10); 

GET DATA(SPACECRAFT LIFE); 

NEW _LINE(2); 

PUT("Spacecraft life 1s"); 

PUT(SPACECRAFT_ LIFE,FORE= >3,AFT= >1,EXP=>0); 
PUT(" years"); 

NEW _LINE(2); 

STOP; 


<<VALUE NEW> > 
PUT LIN EC 885 8 2 2 ee 2 he hee 2 ae 2s a ae ah ah he ee ee he eae 2 2 ae 2 ea ie Ae Ae Ae a Ae AS SAC AS A A A ob A AA AS Ao eh he 
SET COE(S); 
PUT _LINE("Default values for the following parameters are: "); 


PUT LINE(* 2 oi sae os 2s ake ees 2 he ae ee 2 2 ah he sa 2 2 he 2h he as 2 2 hee he he ae ac 2 Ree ee a 2 0 oh iS SE AS A SE os i AR ay 


SET COL(S5): 


’ 


) 
9 
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PUT("Minimum discharge voltage of bus Die): 
set_col(60); 
PUT(MINIMUM_DISCHARGE BUS VOLTAGE,FORE= >4,AFT= >2,EXP=>0);PUT(" volts"); 


NEW _LINE(1); 

SET_COL(5); 

PUT("DESIGN Satellite Bus Voltage (2): 
SET_COL(60); 

PUT(BUS_VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts”); 


NEW _LINE(1); 

SET _COL(5); 

PUT("Bypass diode voltage drop {3] "); 

set_col(60); 

PUT(BYPASS DIODE VOLTAGE DROP,FORE= >4,AFT=>2,EXP=>0);PUT(" volts"); 


NEW _LINE(1); 

SET_COL(5); 

PUT("End of life battery discharge voltage [4] "); 

set_col(60); 

PUT(EOL BATTERY DISCHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= >0);PUT(" volts"); 


NEW _LINE(1); 

SET COL(S); 

PUT("Satellite eclipse time hours [5] *); 
SET_COL(60); 

PUT(ECLIPSE TIME,FORE= >4,AFT= >2,EXP= >0); 
PUT(" hours”); 


NEW _LINE(1); 

SET _COL(5); 

PUT("Depth of Discharge [6} *); 

SET _COL(60); 

PUT(DEPTH_ OF DISCHARGE,FORE= >4,AFT= >2,EXP= >0); 


NEW LINE(1); 

SET_COL(S); 

PUT("Maximum Battery Discharge Voltage [7]"); 

SET_COL(60); 

PUT(MAXIMUM_ BATTERY CHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 


NEW _LINE(1); 

ser COL(S); 

PUT("Series Connected Diode Voltage Drop ie 

SET _COL(60); 

PUT(SERIES CONNECTED DIODE_VOLTAGE_DROP,FORE= >4,AFT= >2,EXP= > 0); 
PUT(" volts"); 


NEW _LINE(1); 
SET COL(5); 
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PUT("Number of Series Connected Diodes [9} "); 
SET _COL(60); 
PUT(NUMBER SERIES CONNECTED DIODES,FORE= >4,AFT= >2,EXP=>0); 


NEW _LINE(1); 

SET _COL(5); 

PUT("Battery Charger Voltage Drop [10] "); 

SET _COL(60); 

PUT(BATTERY CHARGER VOLTAGE DROP,FORE= >4,AFT= >2,EXP=>0); 
PUT(" volts”); 


NEW _LINE(1); 

SET“ COG): 

PUT("Charge Discharge Voltage Drop Wolpe 

SET COL(60); 

PUT(CHARGE DISCHARGE EFFICIENCY BATTERY,FORE= >4,AFT= >2,EXP=>0); 
new_LINE(2); 


if REPLACE = FALSE then 
CHAR :=aNi: 
PUT _LINE("If you desire to change any of the listed values please enter "); 
PUT_LINE("a ‘y’ for YES otherwise enter a ‘n’ for NO"); 
GET CHARACTER(CHAR), 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR := N; 
PUT_LINE("Enter number corresponding to value you wish to change."); 
set_col(10); 
GET INTEGERUINPUT); 
VIDEO.CLEAR_ SCREEN; 
else 
VIDEO.CLEAR SCREEN; 
goto KEEP VALUES; 
end if; 
elsif REPLACE = TRUE then 
PUT_LINE("Enter number corresponding to value you wish to change."); 
set_col(10); 
GET_INTEGER(INPUT); 
VIDEO.CLEAR_ SCREEN; 
end if; 


case INPUT is 


when 1=> 
VIDEO.CLEAR_SCREEN; 
NEW_LINE(2); 
PUT _LINE(" #44444 4#EEERAE ER ERE REESE EAS SE eS OS eee eee 
NEW _LINE(2); 
PUT_LINE("Please enter the minimum satellite bus discharge voltage about "); 
PUT_LINE("30 volts for 3-axis stabilized and 35.0 for spin stabilized"); 
NEW _LINE(2); 
SET _COL(10); 
GET_DATA(MINIMUM_DISCHARGE BUS VOLTAGE); 
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, 


PUT("Minimum discharge bus voltage is "); 
PUT(MINIMUM_ DISCHARGE BUS VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 

NEW_LINE(3); 


when 2= > 
VIDEO.CLEAR SCREEN; 
NEW LINE(2); 
MD le eet SEE EEE EES EERE EAEREREERERRERE EEE EAE ERE ELE EEE") 
NEW _LINE(2); 
PUT_LINE("Please enter the DESIGN bus voltage” ); 
NEW _LINE(2); 
SET_COL(10); 
GET_DATA(BUS_VOLTAGE); 
VIDEO.CLEAR_ SCREEN; 
PUT("DESIGN Bus voltage is "); 
PUT(BUS_ VOLTAGE,FORE= >4,AFT=>2,EXP=>0); 
PUT(" volts"); 
NEW _LINE(2); 


9 


when 3= > 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
ns ce LEER EERE EL EEE ET EEE LEELA ERE A EERE ETRE EEE” | 
NEW LINE(2); 
PUT _LINE("Please enter the End of Life battery discharge voltage drop”); 
PUT LINE(“about 1.0-2.0 volts”); 
NEW LINE(2); 
SET _COL(10); 
GET DATA(BYPASS DIODE VOLTAGE DROP); 
VIDEO.CLEAR SCREEN; 
PUT("Minimum discharge bus voltage is "); 
PUT(BYPASS DIODE VOLTAGE DROP,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 
NEW SeLINE(2); 


9 


when 4= > 
baDeO CLEAR SCREEN; 
NEW_LINE(2); 
een Oise Ne a eer as); 
NEW LINE(); 
SET COL(5); 
PUT("Please enter End of life battery discharge voltage [4] "); 
NEW LINE(2); 
set_col(10); 
GET DATA(EOL BATTERY DISCHARGE VOLTAGE); 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT("End of life battery discharge voltage is [1.1 volts] "); 
PUT(EOL_ BATTERY DISCHARGE VOLTAGE, FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 
NEW _LINE(2); 
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when 5= > 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT LINE (#832844 86 EES ee en ee a en 
NEW_LINE(2); 
PUT _LINE("Please enter the time satellite 1s in eclipse per orbit in hours”); 
PUT LINE("(about 1.2 hours in geosynchronous)"); 
NEW_LINE(2); 
SET_COL(10); 
GET DATA(ECLIPSE TIME); 
VIDEO.CLEAR_ SCREEN; 
PUT("Eclipse time is"); 
PUT(ECLIPSE TIME,FORE= >4,AFT= >2,EXP= >0); 
PUT(" hours"); 
NEW_LINE(2); 


? 


when 6=> 
VIDEO.CLEAR_SCREEN; 
NEW LINE(2); 
PUT LINE CRRA aR te an eee ee ee a ee ema aun eee 
NEW _LINE(2); 
PUT("Please enter the Depth of Discharge used for batteries (0.50 - 0.75"); 
NEW LINE(2); 
SET COL(10); 
GET DATA(DEPTH_ OF DISCHARGE); 
VIDEO.CLEAR_ SCREEN; 
PUT("Depth of discharge is "); 
PUT(DEPTH_ OF DISCHARGE,FORE= >4,AFT= >2,EXP= >0); 
NEW LINE(2); 


when 7= > 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT LINE(( 202 ots tea ot a ate ate a ate ao ae ch ee ee heat oe eke AE 
NEW _LINE(2); 
PUT_LINE("Please enter the maximum battery discharge voltage "); 
PUT _LINE("(default 1.5 volts)"); 
NEW _LINE(2); 
SET_COL(10); 
GET_DATA(MAXIMUM_ BATTERY CHARGE VOLTAGE); 
NEW _LINE(1); 
SET COL(S); 
PUT("Maximum Battery Discharge Voltage "); 
SET _COL(60); 
PUT(MAXIMUM_ BATTERY CHARGE VOLTAGE,FORE= >4,AFT= >2,EXP=>0); 
PUT(" volts”); 
NEW _LINE(2); 


. 
? 


when 8= > 
VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 
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RN ee RR ee EO RE ETRE RE): 
NeW LINE(2); 

PUT LINE("Please enter the series connected diode voltage drop"); 

PUT_LINE("(default 0.8 volts)"); 

NEW _LINE(2); 

SET COL(10); 

GET DATA(SERIES CONNECTED DIODE VOLTAGE DROP); 

NeW LINE(1); 

sel COL(G); 

NEW _LINE(1); 

PUT("Series Connected Diode Voltage Drop "); 

SET_COL(60); 

PUT(SERIES CONNECTED DIODE VOLTAGE DROP,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts”); 

NEW LINE(@); 


when 9= > 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
el eee eee ae a ne STE RT ee Se RR ACK") 
NEW _LINE(2); 
PUT _LINE("Please enter the number of series connected diodes"); 
PUT LINE("(default 3)"); 
NEW _LINE(2); 
SET _COL(10); 
GET DATA(NUMBER SERIES CONNECTED DIODES); 
NEW LINE(1); 
SET COLG); 
PUT("Number of Series Connected Diodes "); 
SET _COL(60); 
PUT(NUMBER SERIES CONNECTED DIODES,FORE= >4,AFT= >2,EXP= >0); 
NEW _LINE(2); 


when 10=> 
VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 
ens ee ea tT EAE ES ee ae ee YS 
NEW _LINE(2); 
PUT _LINE("Please enter the battery charger voltage drop"); 
PUT LINE("(default 1.75 volts)"); 
NEW _LINE(2); 
SET _COL(10); 
GET DATA(BATTERY CHARGER VOLTAGE DROP); 
NEW _LINE(1); 
SER COL(S); 
PUT("Battery Charger Voltage Drop "); 
SET_COL(60); 
PUT(BATTERY_ CHARGER VOLTAGE _DROP,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 
NEW _LINE(2); 
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when 1l1=> 
VIDEO.CLEAR SCREEN; 
NEW JEINE@): 
PUT LIN EC 1 Pt 88864 REE RRA ENEEETS e 
NEW _LINE(2); 
PUT _LINE("Please enter the battery charge discharge efficiency”); 
PUT_LINE("(default 0.9)"); 
NEW _LINE(2); 
SET_COL(10); 
GET _DATA(CHARGE DISCHARGE EFFICIENCY BATTERY); 
NEW LINEG): 
SET COL(5); 
PUT("Charge Discharge Voltage Drop "); 
SET_COL(60); 
PUT(CHARGE DISCHARGE EFFICIENCY BATTERY,FORE= >4,AFT= >2,EXP=>0); 
NEW _LINE(2); 


e 
bd 


when OTHERS => 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT LINEC #84880 205084 64 Ee eer ee eae 
NEW CINE): 
SET COL<(S5); 
PUT _LINEC("ENTER A PROPER NUMBER IDENTIFIER FOR VARIABLE TO CHANGE!"); 
NEW _LINE(2); 
end case; 


e 
? 


NEW _LINE(2); 
PUT _LINE( e333 se eseicoiicciciciiecicaikicioaickicisaickicioiiok icioiiok taiokick tank tating iakokekataak aka); 
NEW _LINE(2); 
CHAR := N; 
PUT_LINE("If you wish to change a value please enter a ‘y’ for YES"); 
PUT_LINE(“otherwise enter a ‘n’ for NO "); 
REPLACE: = FALSE; 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR := N; 
REPLACE: =TRUE; 
VIDEO.CLEAR_ SCREEN; 
goto VALUE NEW; 


else 
VIDEO.CLEAR SCREEN; 
PUT _LINE("UNDERSTAND NO MORE CHANGES"); 
NEW_LINE(3); 
end if; 
STOP; | 


< <KEEP_VALUES> > 


PUT LI NEC 88 a a oe 2 a ae 2 ee 2h ee ea AE Ae Ae Ae AE i Ae A A AA AGA, oo ei a he he oo 2h ke ee ae 
SET _COL(S); 
PUT_LINE("Values for the following parameters are: "); 


e 
3 
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PUT RAE REE Ee EAR RA ka mR RAS) 
SET COL(5); 

PUT("Minimum discharge voltage of bus”); 

set_col(60); 

PUT(MINIMUM_DISCHARGE BUS_VOLTAGE,FORE= >4,AFT= >2,EXP= >0);PUT(" volts"); 


b 


NEW LINE(1); 

oer COL{5); 

PUT("DESIGN Satellite Bus Voltage”); 

SET COL(60); 

PUT(BUS_ VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 


NEW _LINE(1); 

SET COL(S); 

PUT("Bypass diode voltage drop"); 

set_col(60); 

PUT(BYPASS DIODE VOLTAGE DROP,FORE= >4,AFT= >2,EXP=>0);PUT(" volts"); 


NEW _LINE(1); 

SET _COL(5); 

PUT("End of life battery discharge voltage”); 

set_col(60); 

PUT(EOL BATTERY DISCHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= >0);PUT(" volts"); 


Pew LINE(1); 

SET_COL(5); 

PUT("Satellite eclipse time hours”); 

SET COL(60); 

PUT(ECLIPSE TIME,FORE= >4,AFT= >2,EXP= >0); 
PUT(" hours”); 


NEW _LINE(1); 

SET COL(5); 

PUT("Depth of Discharge "); 

SET_COL(60); 

PUT(DEPTH_ OF DISCHARGE,FORE= >4,AFT= >2,EXP= >0); 


NEW _LINE(1); 

SET COL(S); 

PUT("Maximum Battery Discharge Voltage "); 

SET_COL(60); 

PUT(MAXIMUM_BATTERY CHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 


NEW LINE(1); 

SET_COL(S5); 

PUT("Series Connected Diode Voltage Drop "); 

SET COL(60); 

PUT(SERIES CONNECTED DIODE VOLTAGE DROP,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 
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NEW _LINE(1); 

SET _COL(5); 

PUT("Number of Semmes Connected Diodes "); 

SET COL(60); 

PUT(NUMBER_ SERIES CONNECTED DIODES,FORE= >4,AFT=>2,EXP=>0); 


NEW 2 EINEG): 

SET COL); 

PUT("Battery Charger Voltage Drop "); 

SET COL(60); 

PUT(BATTERY CHARGER VOLTAGE DROP,FORE= >4,AFT=>2,EXP=>0); 
PUT(" volts"); 


NEW _LINE(1); 

SET _COL(S); 

PUT("Charge Discharge Voltage Drop "); 

SET_COL(60); 

PUT(CHARGE DISCHARGE EFFICIENCY BATTERY,FORE= >4,AFT= >2,EXP= >0); 
new_LINE(2); 

STOR: 


<<BUS>= 
VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 
POT LINE 4247 te ee ee ee eee 
NEW _LINE(2); 
PUT LINE("Please enter the number of buses used in your satellite."); 
PUT_LINE("Most satellites have 2 buses.”"); 
GET_INTEGER(J); 
NEW_LINE(1); 
PUT("Satellite has "); 
PUT(U,WIDTH= > 2); 
PUT(" buses”); 
if) > 2 then 
NEW SEINEG; 
PUT _LINE("You have selected more then two buses. Are you sure?”); 
PUT_LINE("To change the number of buses enter a ‘Y’ for YES or ‘N’ for NO."); 
NEW _LINE(2); 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR := N; 
VIDEO.CLEAR SCREEN; 
goto BUS; 


. 
3 


else 
VIDEO.CLEAR SCREEN; 
PUT _LINE("UNDERSTAND MORE THAN TWO BUSES IS OKAY."); 
NEW _LINE(2); 
end if; 
end if; 


NEW_LINE(1); 
VIDEO.CLEAR_ SCREEN; 
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PUT("Satellite has "); 
PUT(U,WIDTH= > 2); 

PUT(" buses”); 
NUMBER OF BUSES:=FLOAT(J); 


end OPERATING DATA; 


procedure BATTERY (BATTERY LOAD : in out FLOAT; 
DRUM_SPINNER : in out BOOLEAN; 
MINIMUM_DISCHARGE BUS VOLTAGE : in out FLOAT; 
BUS VOLTAGE : in out FLOAT; 
BYPASS DIODE VOLTAGE DROP ; in out FLOAT; 
EOL_BATTERY_DISCHARGE VOLTAGE : in out FLOAT; 


BUS POWER : in out FLOAT; 
PAYLOAD POWER : in out FLOAT; 
CELL AH : in out FLOAT; 
DEPTH_OF DISCHARGE : in out FLOAT; 
ECLIPSE TIME : in out FLOAT; 
VOLTAGE CHARGE ARRAY : in out FLOAT; 
NUMBER OF BUSES : in out FLOAT; 


MAXIMUM. BATTERY CHARGE VOLTAGE: in out FLOAT; 
SERIES CONNECTED DIODE VOLTAGE DROP: in out FLOAT; 
NUMBER SERIES CONNECTED DIODES : in out FLOAT; 
BATTERY CHARGER VOLTAGE DROP : in out FLOAT; 
CHARGE_DISCHARGE EFFICIENCY BATTERY : in out FLOAT; 


spacecraft life 


POWER _EQUINOX_ CHARGE 
POWER SOLSTICE CHARGE 


DESIGN MARGIN 
SOLAR INTENSITY 


SOLAR_ARRAY TEMP EQUINOX 
SOLAR CELL TEST TEMP 
TEMP_COEF EOL CURRENT 
TEMP_COEF EOL VOLTAGE 
CURRENT_MAX POWER 
VOLTAGE MAX POWER 
CURRENT SHORT CIRCUIT 
VOLTAGE_OPEN_CIRCUIT 
CELL_WIDTH 

CELL LENGTH 

CELL THICKNESS 
SOLSTICE_ARRAY_ TEMP 
EQUINOX ARRAY TEMP 
ASSEMBLY LOSS CURRENT 


ENVIRONMENTAL DEGRADATION CURRENT 
ENVIRONMENTAL DEGRADATION VOLTAGE 
-- SIF = SOLAR INTENSITY FACTOR 


SOLSTICE_SIF_CURRENT 
SOLSTICE SIF VOLTAGE 


PEGA be — 25.0: 


ehLOAL.: = 2.0: 
: FLOAT := 4.0; 
: FLOAT := 0.021; 
s FLOAT == 37.0: 
TFILOAT -="45.0: 


: in out FLOAT; 
: in out FLOAT; 
: in out FLOAT) is 


; FLOAT := 1.1: 
: FLOAT := 135.0; -- mw / cm*2 
SOLAR_ ARRAY TEMP SOLSTICE 


: FLOAT := 37.0; -- celcius 

: FLOAT := 45.0; -- celcius 
-- celcius 
: FLOAT := 0.00024; -- ma/cm*2 
: FLOAT := -0.0022; -- ma/cm*2 


: FLOAT := 0.2966; -- A | Imp 


: FLOAT := 0.45; -- V Vmp 
: FLOAT := 0.315; --A_ Isc 
: FLOAT := 0.548; -- V Voc 


-- cm 

-- cm 

-- cm w/coverglass 
-- degrees celcius 
-- degrees celcius 

: FLOAT: =0.9800; 

: FLOAT: =0.9077; 

: FLOAT: =0.9675; 


: FLOAT: =0.94425; 
: FLOAT: = 1.00000; 
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EQUINOX_SIF_CURRENT : FLOAT: =0.9970; 


EQUINOX_SIF_ VOLTAGE : FLOAT: = 1.0000; 

EFF ILLUMiNATION_FLAT PANEL : FLOAT: = 1.0000; 

EFF ILLUMINATION _ SPIN : FLOAT: =3.14159265359; 

PANEL WIRING_LOSS PER CELL : FLOAT: =0.005; _— -- delta V 
SOLSTICE SOLAR_ARRAY_ TEMP : FLOAT: =39.0; -- degree celcius 
EQUINOX SOLAR ARRAY TEMP : FLOAT: =49.0; -- degree celcius 
BLOCKING DIODE VOLTAGE DROP : FLOAT: =0.9; -- 


ARRAY WIRING HARNESS AND SLIP_RING VOLTAGE DROP: FLOAT := 0.9; 


BUS CURRENT, 

CELL_CURRENT_EOL SOLSTICE, 
CELL CURRENT EOL EQUINOX, 
CELL VOLTAGE EOL SOLSTICE, 
CELL VOLTAGE EOL EQUINOX, 


NUMBER_CELLS IN SERIES CHARGE_ARRAY_ SOLSTICE, 
NUMBER CELLS IN PARALLEL CHARGE ARRAY SOLSTICE, 
NUMBER CELLS IN SERIES CHARGE ARRAY EQUINOX, 
NUMBER CELLS IN PARALLEL CHARGE ARRAY EQUINOX, 


TOTAL NUMBER CELLS, 
POWER TOTAL, 

TOTAL POWER PER BUS, 
ARRAY TOTAL POWER, 
POWER MARGIN, 


REQUIRED CURRENT SOLSTICE PER BUS, 
REQUIRED CURRENT EQUINOX PER BUS, 
TEMP _OF CELL CHARACS, 

CELL AREA, 
NUMBER_CELLS IN PARALLEL, 
NUMBER CELLS IN SERIES, 
DESIGN LOAD SOLSTICE, 


DESIGN LOAD EQUINOX eRhEOAd- 
FINAL : BOOLEAN := TRUE; 
PARAMETERS, 

CELLS : INTEGER; 

OUTSC JPILE-TY ES: 


EQUINOX CURRENT, 

SOLSTICE CURRENT, 
MAXIMUM_CHARGE VOLTAGE, 
RECHARGE TIME : FLOAT ; 
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CHARGE ENE OE K 


OUTF oe ek by Pe: 


begin 
NEW _LINE(2); 
PUT("Please enter the Solar Cell Test Temperature in degrees celcius"); 
NEW LINE(4); 
set_col(15); 
GET DATA(SOLAR_ CELL TEST TEMP); 
VIDEO.CLEAR SCREEN; 
PUT("Solar Cell Test Temperature is "); 
PUT(SOLAR_ CELL TEST_TEMP,FORE= >3,AFT=>2,EXP= >0); 
PUT(" celcius"); 
NEW _LINE(4); 
STOP; 


NEW_LINE(1); 

PUT_LINE(" The electrical characteristics of typical solar cells are based "); 
NEW _LINE(1); 

PTC on *); 

PUT(SOLAR_ CELL TEST_TEMP,FORE= >2,AFT=>0,EXP=>0); 

PUT(" degrees celcius temperature and standard solar intensity "); 

NEW _LINE(2); 

PUT_LINE(“"of 135.3 mw/cm*2 on a cell basis at BOL. The realistic solar”); 
NEW LINE(1); 

PUT _LINE("array power is, however, calculated by considering several "); 
NEW _LINE(1); 

PUT_LINE("factors, such as assembly loss factors, environmental degradation, "); 
NEW LINE(1); 

PUT LINE("the seasonal variation of solar intensity, solar cell temperature, "); 
NEW _LINE(}); 

PUT LINE(“and random failures. Some typical values are given in Table 6.6 "); 
NEW LINE(1); 

PUT_LINE("of Bry N. Agrawal’s book Design of Geosynchronous Spacecraft.”); 
NEW _LINE(2); 

STOP; 


if SPACECRAFT LIFE = 10.01 then 
ASSEMBLY LOSS CURRENT :=0.9600; 
ENVIRONMENTAL DEGRADATION CURRENT _ :=0.8561; 
ENVIRONMENTAL DEGRADATION VOLTAGE — :=0.9350; 
-- SIF = SOLAR INTENSITY FACTOR 


SOLSTICE SIF CURRENT : =0.8885; 

SOLSTICE_SIF VOLTAGE : = 1.00000; 
EQUINOX SIF CURRENT := 0.9941; 
EQUINOX SIF VOLTAGE : = 1.0000; 
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elsif SPACECRAFT LIFE <= 2.0 then 
ASSEMBLY _ LOSS CURRENT : =0.9800; 
ENVIRONMENTAL DEGRADATION CURRENT — :=0.9077; 
ENVIRONMENTAL DEGRADATION VOLTAGE — :=0.9675; 
-- SIF = SOLAR INTENSITY FACTOR 


SOLSTICE_SIF_CURRENT := 0.94425; 
SOLSTICE SIF VOLTAGE : = 1.00000; 
EQUINOX SIF CURRENT :=0.9970; 
EQUINOX SIF VOLTAGE : = 1.0000; 


elsif SPACECRAFT LIFE > 2.0 and SPACECRAFT LIFE < 7.0 then 


ASSEMBLY _LOSS_CURRENT:=ASSEMBLY_LOSS_ CURRENT 
/(1.011722**INTEGER(SPACECRAFT LIFE-2.0)); 


ENVIRONMENTAL DEGRADATION CURRENT: =ENVIRONMENTAL DEGRADATION CURRENT 
/1.0216787**INTEGER(SPACECRAFT LIFE-2.0); 


ENVIRONMENTAL DEGRADATION VOLTAGE: =ENVIRONMENTAL DEGRADATION VOLTAGE 


/1.0068572**INTEGER(SPACECRAFT_LIFE-2.0); 
-- SIF = SOLAR INTENSITY FACTOR 


SOLSTICE_SIF_CURRENT:=SOLSTICE_SIF CURRENT 
/1.0111722**INTEGER(SPACECRAFT_LIFE-2.0); 


EQUINOX_SIF CURRENT: =EQUINOX_ SIF CURRENT 
/1.000582763**INTEGER(SPACECRAFT_LIFE-2.0); 


elsif SPACECRAFT LIFE >= 7.0 and SPACECRAFT LIFE < 8.0 then 


ASSEMBLY_LOSS CURRENT := 0.96; 
ENVIRONMENTAL DEGRADATION CURRENT = 0.8154; 
ENVIRONMENTAL DEGRADATION VOLTAGE := 0.935; 
-- SIF = SOLAR INTENSITY FACTOR 

SOLSTICE_SIF_ CURRENT := 0.8885; 

SOLSTICE SIF VOLTAGE := 1.0; 

EQUINOX SIF CURRENT := 0.9941; 

EQUINOX SIF VOLTAGE := 1.0; 

EFF ILLUMINATION FLAT PANEL := 1.0; 

EFF ILLUMINATION SPIN := 1.0; 


elsif SPACECRAFT _ LIFE >= 8.0 and SPACECRAFT LIFE <= 50.0 then 
-- 1.016397 is a mathematical constant to cause a continuous 
-- 5% degradation every 5 years. 


ASSEMBLY_LOSS_CURRENT:=ASSEMBLY_ LOSS CURRENT 
/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 
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ENVIRONMENTAL DEGRADATION CURRENT: =ENVIRONMENTAL DEGRADATION CURRENT 
/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 


ENVIRONMENTAL DEGRADATION VOLTAGE:=ENVIRONMENTAL DEGRADATION VOLTAGE 
/1.016397**INTEGER(SPACECRAFT_LIFE-7.0); 
-- SIF = SOLAR INTENSITY FACTOR 


SOLSTICE SIF CURRENT: =SOLSTICE SIF CURRENT 
/1.016397**INTEGER(SPACECRAFT LIFE-7.0); 


EQUINOX SIF CURRENT:=EQUINOX_SIF_CURRENT 
/1.016397**INTEGER(SPACECRAFT _LIFE-7.0); 


else 
VIDEO.CLEAR SCREEN; 
PUT LINE(" Spacecraft life to long DEFAULT values will be used"); 


end if; 
PUT_LINE("Environmental Degradation Factors for given Spacecraft Life”); 


DE idle Catia aa EERE EERE EEE EER ERNE EEE EERE EE EE ) 


new_line(1); 


’ 


PUT("Assembly Loss Current is "); 

SET _COL(60); 

PUT(ASSEMBLY LOSS CURRENT,FORE= >1,AFT= >4,EXP= >0); 
NEW _LINE(2); 


PUT("Environmental Degradation Current 1s "); 

SET COL(60); 

PUT(ENVIRONMENTAL DEGRADATION CURRENT,FORE= > 1,AFT= >4,EXP= >0); 
NEW _LINE(2); 


PUT("Environmental Degradation Voltage 1s "); 

SET_COL(60); 

PUT(ENVIRONMENTAL DEGRADATION _VOLTAGE,FORE= > 1,AFT= >4,EXP= >0); 
NEW LINE(2); 


PUT("Solar Intensity Factor for Current during Solstice 1s "); 
SET_COL(60); 

PUT(SOLSTICE SIF CURRENT,FORE= >1,AFT= >4,EXP=>0); 
NEW LINE(2); 


PUT("Solar Intensity Factor for Voltage during Solstice 1s "); 

SET COL(60); 

PUT(SOLSTICE SIF VOLTAGE,FORE= > 1,AFT= >4,EXP= >0), 
NEW _LINE(2); 


PUT("Solar Intensity Factor for Current during Equinox ts "); 

SET COL(60); 

PUT(EQUINOX_SIF CURRENT,FORE= >1,AFT=>4,EXP= >0); 
NEW _LINE(2); 
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PUT("Solar Intensity Factor for Voltage during Equinox is "); 
SET_COL(60); 

PUT(EQUINOX_SIF_VOLTAGE,FORE= >1,AFT=>4,EXP= >0); 
NEW _LINE(2); 


NEW _LINE(2); 
PUT_LINE("To use the above calculated values entera 1°"); 
NEW_LINE(1); 
PUT _LINE("To change the calculated valuesentera ’2’"); 
NEW _LINE(1); 


SET COL(5); 
GET_INTEGER(CELLS); 


case CELLS is 
when 1= > 
PUT_LINE("Understand default values will be used"); 


when 2= > 
VIDEO.CLEAR SCREEN; 
new_line(2); 


PUTIEINEG Ae fe eae he fe eae ae fe fe ae 2 fe ee ae 2 fe ee ok ke fe 2 2 2 fe 2 2 fe ae 2 2 2k fe ae 22 2¥ 292s 2 afc ee ok ok ea 2 kk a ist 


NEW _LINE(2); 

PUT("Please enter desired value for Assembly Loss Current "); 
NEW _LINE(2); 

SET COS): 

GET DATA(ASSEMBLY_ LOSS CURRENT); 


VIDEO.CLEAR_ SCREEN; 
new_line(2); 


PUT LIN E(CEPER EERE EERIE RE ER I a ae ee 


NEW_LINE(2); 


PUT("Please enter desired value for Environmental Degradation (current)"); 


NEW_LINE(2); 
SET_COL(15); 


GET_DATA(ENVIRONMENTAL_ DEGRADATION CURRENT); 


VIDEO.CLEAR SCREEN; 
new_line(2); 


PUT LINE 4270 rR a eres aed eee 


NEW _LINE(2); 


PUT("Please enter desired value for Environmental Degradation (voltage)"); 


NEW_LINE(2); 
SET_COL(15); 


GET_DATA(ENVIRONMENTAL_DEGRADATION_ VOLTAGE); 


VIDEO.CLEAR_ SCREEN; 
new_line(2); 


PUT_LINE( Make he ee ae fe ee Rese a a 2k ok ea as 2a ea Aas a a a eae eae ke 


NEW _LINE(2); 
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e 
b] 


b 


« 
? 


bd 


PUT LINE("Please enter desired value for "); 

PUT _LINE(" Solar Intensity Factor (solstice current)"); 
NEW _LINE(2); 

Sel COL(15); 
GET_DATA(SOLSTICE SIF CURRENT); 


VIDEO.CLEAR_ SCREEN; 

new_line(2); 

gare ice MR AHR AOE ARR ACHR IOR AOR EA HOR I He eR IR ete RA) 
NEW _LINE(2); 

PUT_LINE("Please enter desired value for "); 

PUT LINE(" Solar Intensity Factor (solstice voltage)"); 

NEW _LINE(2); 

SET _COL(15); 

GET DATA(SOLSTICE SIF VOLTAGE); 


e 
bd 


VIDEO.CLEAR_ SCREEN; 

new_line(2); 

I eee ec EEE EE ESR EE ELE EERE EEE EERE EERE ERA): 
NEW _LINE(2); 

PUT LINE ("Please enter desired value for "); 

PUT_LINE(" Solar Intensity Factor (equinox current)"); 

NEW LINE(2); 

SET COL(15); 

GET_DATA(EQUINOX_SIF_ CURRENT); 


VIDEO.CLEAR_ SCREEN; 

new_line(2); 

TLS TE (CUS SaSE  saSaaaa aee ala apai ciaia iccle~llididadeaadaddaadiadiadiadiadiae aid 
NEW _LINE(2); 

PUT _LINE("Please enter desired value for "); 

PUT LINE(" Solar Intensity Factor (equinox voltage)"); 

NEW LINE(2); 

SET _COL(15); 

GET_DATA(EQUINOX SIF VOLTAGE); 


e 
bd 


when OTHERS => 
VIDEO.CLEAR SCREEN; 
NEW_LINE(2); 
SET _COL(5); 
PUT_LINE("Understand Calculated values will be used”); 
Ie Ww LINE(); 
end case; -- CHARGE 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE()); 
PUT("SOLAR ARRAY DESIGN FACTORS ARE:"); 
NEW_LINE(2); 
PUT("Assembly Loss Current is "); 
SET_COL(60); 
PUT(ASSEMBLY LOSS CURRENT,FORE= >1,AFT= >4,EXP= >0); 
NEW_LINE(2); 
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PUT("Environmental Degradation Current is "); 

SET COL(60); 

PUT(ENVIRONMENTAL DEGRADATION CURRENT,FORE= >1,AFT= >4,EXP= >0); 
NEWSLINE), 


PUT("Environmental Degradation Voltage 1s "); 

SET COL(60); 

PUT(ENVIRONMENTAL DEGRADATION VOLTAGE,FORE= >1,AFT= >4,EXP= >0); 
NEW _LINE(2); 


PUT("Solar Intensity Factor for Current during Solstice 1s "); 

SET COL(60); 

PUT(SOLSTICE SIF CURRENT,FORE= >1,AFT= >4,EXP=>0); 
NEW _LINE(2); 


PUT("Solar Intensity Factor for Voltage during Solstice is "); 

SET COL(60); 

PUT(SOLSTICE SIF _VOLTAGE,FORE= >1,AFT=>4,EXP= >0); 
NEW _LINE(2); 


PUT("Solar Intensity Factor for Current during Equinox 1s "); 

SET _COL(60); 

PUT(EQUINOX_SIF_ CURRENT,FORE= >1,AFT= >4,EXP= >0); 
NEW _LINE(2); 


PUT("Solar Intensity Factor for Voltage during Equinox is "); 

SET _COL(60); 

PUT(EQUINOX_SIF_VOLTAGE,FORE= >1,AFT= >4,EXP= >0); 

NEW _LINE(3); 

STOP; 

NEW _LINE(1); 

PUT LIN E00 ee et eee eee eee enero eee ee ea 


NEW _LINE(2); 


« 
b] 


PUT SUINEG SOLAR CELL CHARACTERISTICS’); 

PUT _LINE(* ¥## 44484444424 444404 2 REET REELS Se eg eee cee 
PUT_LINE("Choice i De 3) ae eS ‘6° a 
PUT_LINE("Charac Intelsat Intelsat Intelsat GaAs/Ge AlAs/Ge "); 

PUT LINE IV V VI as 

PUE EPINEG Si Si ween nnnee---- 2) 

PUT_LINE(" K4-3/4 K7"); 
PUT_LINE("-------------------------------------------------------------- eae 


PUT_LINE(*Imp Amps 0.125 0.2966 0.391 0.644 0.725 0.780"); 
PUT LINE("Vmp Volts 0.445 0.450 0.454 0.478 0.885 0.812"); 
PUT _LINE("Isc Amps 0.141 0.315 0.4187 0.6887 0.735 0.878"); 
PUT_LINE("Voc Volts 0.560 0.548 0.545 0.590 0.889 0.851"); 


PUT_LINE("Size cm 2x2 2.1x4.0 1.8x6.2 2.5x6.2 2x4 2x2"); 
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PUT_LINE("Thickness 0.033 0.025 0.020 0.020 .020 0.20"); 
PUT_LINE("Material Si Si Si Si GaAs/Ge AlAs/Ge"); 
PUT LINE("To use the above calculated values enter the appropriate”); 
PUT_LINE("number located at the top of the column. To enter your own”); 
PUT_LINE("cell parameters enter a ‘7’"); 


SET COL(5); 
GET INTEGER(PARAMETERS); 


case PARAMETERS is 


when 1= > 
TEMP_COEF EOL CURRENT := 0.00024; -- ma/cm*2 
ier COEF EOL VOLTAGE := -0.0022; 
CURRENT MAX POWER >= 0.1250; --A Imp 
VOLTAGE MAX POWER := 0.445; --V Vmp 
CURRENT SHORT_CIRCUIT := 0.141; --A_ Isc 
VOLTAGE OPEN CIRCUIT >= 0.560; --V Voc 
CELL WIDTH 2= 2,0; -- cm 
CELL LENGTH >= 2.0; -- cm 
GEL THICKNESS >= 0.033; -- cm 

When 2= > 
EMP eCOEF EOL CURRENT >= 0.00024; -- ma/cm*2 
TEMP COEF EOL VOLTAGE := -0.0022; 
CURRENT MAX POWER >= 0.2966; --A Imp 
VOLTAGE MAX POWER >= 0.45; -- V Vmp 
CURRENT SHORT CIRCUIT >= 0.315; --A_ Isc 
VOLTAGE OPEN CIRCUIT — 0.458 -- V_ Voc 
CELL WIDTH =. 0; -- cm 
SEE LENGTH := 4.0; -- cm 
CELL THICKNESS >= 0.025; 9 -- cm 

when 3= > 
TEMP COEF EOL CURRENT >= 0.00024; -- ma/cm*2 
TEMP _COEF EOL VOLTAGE := -0.0022; 
CURRENT MAX POWER >= 0.391; --A Imp 
VOLTAGE MAX POWER := 0.454; --V Vmp 
CURRENT _SHORT_CIRCUIT >= 0.4187; --A_ Ise 
VOLTAGE OPEN CIRCUIT >= 0.545; --V_ Voc 
CELL WIDTH m= 1.8: -- cm 
CEEL LENGTH = 6:2 -- cm 
CELL THICKNESS <= 0,02: -- cm 

when 4= > 
TEMP _ COEF EOL CURRENT = 0.00024; -- ma/cm*2 
TEMP_COEF EOL_VOLTAGE >= -0.0022; 


CURRENT MAX POWER 
VOLTAGE MAX POWER 


0.644; --A Imp 
0.478; --V Vmp 


i 
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CURRENT SHORT CIRCUIT := 0.6887; -- A Isc 


VOLTAGE OPEN CIRCUIT >= 0.590; --V_ Voc 
CELL WiDil := 2.085; -- cm 
GELE LENGSH >= 6.205; -- cm 
CELL THICKNESS := 0.02; -- cm 

when 5=> 
TEMP_COEF EOL CURRENT := 0.00024, -- ma/cm*2 
TEMP COEF EOL VOLTAGE >= 0.0022; 
CURRENT MAX POWER >= 0.725; --A Imp 
VOLTAGE MAX POWER >= 0.750; --V Vmp 
CURRENT SHORT_ CIRCUIT := 0.735; --A_ Isc 
VOLTAGE OPEN CIRCUIT >= 0.888; -- V Voc 
CELL WIDTH >= 2.0; -- cm 
CEELSEENGIE := 4.0; -- cm 
CELEESTHICKNESS 7= 0.02; -- cm 

when 6= > 
TEMP COEF EOESCURRENE := 0.00024; -- ma/cm*2 
TEMP COEF EOL VOLTAGE := -0.0022; 
CURRENT MAX POWER >= 0.780; --A Imp 
VOLTAGE MAX POWER := 0.812; --V Vmp 
CURRENT SHORT CIRCUIT := 0.878; --A_ Isc 
VOLTAGE OPEN CIRCUIT >= 0.851; --V_ Voc 
CELL WIDTH [=:2,0: -- cm 
GeLLVLENGIA := 2.0; -- cm 
CELL THICKNESS = 0.02 -- cm 

when 7 => 


VIDEO.CLEAR SCREEN; 

PUT LINE(' #6 846604 4 5 0 em Telia A ae oS a eee 
PUT_LINE("Please enter the value for temperature coefficient EOL CURRENT"); 
PUT _LINE("Default value is -0.0022 A / degree C "); 

SET_COL(15); 

GET DATA(TEMP_COEF EOL CURRENT); 

NEW _LINE(2); 

VIDE OQsCL EAR SCREEN: 

SET _COL(15); 

PUT("Temperature coefficient EOL CURRENT is "); 
PUT(TEMP_COEF EOL CURRENT,FORE= >1,AFT= >4,EXP= >0); 

PUT(" ma/cm*2"); NEW_LINE(2); 


PUT LINEC Ae ae ke ae he ae ae 2 ae 9 AA Re Ae AEE A ok A ee 


PUT_LINE("Please enter the value for temperature coefficient EOL VOLTAGE"); 
PUT_LINE("Default value is 0.00024 V / degree C"); 

SET COL(15); 

GET DATA(TEMP_COEF EOL VOLTAGE); 

VIDEO.CLEAR_ SCREEN; 


e 
bd 
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NEW _LINE(2); 

SET_COL(15); 

PUT("Temperature coefficient EOL VOLTAGE is "); 

PUT(TEMP_COEF EOL_VOLTAGE,FORE= >1,AFT= >4,EXP= >0); 
PUT(" mv/cm*2"); NEW_LINE(2); 


PUT_LINE(" a hs Ae 2 2h i A ee RR A kh 2 2 2k 2 oe ok ek 2k ae eA) 


PUT_LINE("Please enter the value for CURRENT at MAXIMUM POWER (Imp) "); 


e 
3 


PUT_LINE("Default value is 0.2966 Amps”); 

SE COL(5); 

GET DATA(CURRENT MAX POWER ); 

VIDEO.CLEAR_ SCREEN; 

NEW _LINE(2); 

SET_COL(15); 

PUT(“Current at Maximum Power is "); 

PUT(CURRENT MAX_POWER ,FORE= > 1,AFT= >4,EXP= >0); 
PUT(" Amps” -- Imp"); NEW_LINE(2); 


ON icra er EERE AERA AERA S ET EE >) 


PUT_LINE("Please enter the value for VOLTAGE at MAXIMUM POWER (Imp) "); 
PUT_LINE(“Default value is 0.45 Volts "); 

SET COL(15); 

GET DATA(VOLTAGE MAX POWER ); 

VIDEO.CLEAR_SCREEN; 

NEW _LINE(2); 

SET_COL(15); 

PUT("Voltage at Maximum Power is "); 

PUT(VOLTAGE MAX POWER ,FORE= >1,AFT= >4,EXP= >0); 

PUT(" Volts -- Vmp"); NEW_LINE(2); 


’ 


Ra IOUTM RU TN es (use eat 7h eee a lek hee eee ee eek ei eae ese ecco kk oe ae kek") 


PUT_LINE("Please enter the value for Short Circuit Current (Isc) "); 
PUT_LINE("Default value is 0.315 Amps"); 

SET COL(15); 

GET DATA(CURRENT SHORT CIRCUIT ); 

VIDEO.CLEAR_ SCREEN; 

NEW_LINE(2); 

SET_COL(15); 

PUT("Short Circuit Current is "); 

PUT(CURRENT SHORT CIRCUIT ,FORE=>1,AFT= >4,EXP=>0); 
PUT(" Amps~ -- Isc");NEW_LINE(2); 


b 


Ee ate Oe Cae ENERO ARERR EEE ETT) 


PUT LINE("Please enter the value for Open Circuit Voltage (Voc) "); 
PUT_LINE("Default value is 0.548 Volts *); 

SET COL(15); 

GET DATA(VOLTAGE OPEN CIRCUIT ); 

VIDEO.CLEAR_ SCREEN; 

NEW LINE(2); 

SET _COL(15); 

PUT(“Open Circuit Voltage is "); 


> 
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PUT(VOLTAGE_ OPEN CIRCUIT ,FORE= >1,AFT= >4,EXP= >0); 
PUT(" Volts -- Voc");NEW_LINE(2); 


PUT_LINE( " ae he ee Se ee Se Se 2 Ae ee he Se ee ee) 


PUT_LINE("Please enter the value for Solar Cell Width in cm.”); 
PUT _LINE("Default value is 2 cm "); 

SET _COL(15); 

GET DATA(CELL WIDTH ); 

VIDEO.CLEAR_ SCREEN; 

NEW_LINE(2); 

SETCOL( 15); 

PUT("Solar Cell Width is ”); 

PUT(CELL_WIDTH,FORE= >2,AFT= >2,EXP= >0); 

PUT(" cm");NEW_LINE(2); 


e 
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PUT _LINE( i“ ake ese ae ae Se ae ese ate eae abe ee ah ae ae he cae a ae Ae ae ie a 2 a er eee 


PUT("Please enter the value for Solar Cell Length in cm."); 
PUT_LINE("Default value is 4 cm”); 

SET _COL(ts)- 

GET DATA(CELL LENGTH ); 

VIDEO.CLEAR SCREEN; 

NEW_LINE(), 

SET LCOL(TS): 

PUT("Solar Cell Length is *); 
PUT(CELL_LENGTH,FORE= >2,AFT= >2,EXP= >0); 
PUT(" cm"); NEW_LINE(2); 


PUT_LINE( Pa Me esc a se ese ee he a es ise a ae se sea Se se ee ee pc a eae ee 


PUT("Please enter the value for Solar Cell Thickness in cm. "); 
PUT_LINE("Default value is 0.025 cm "); 

SET _COL(15); 

GET DATA(CELL_ THICKNESS); 

VIDEO.CLEAR_ SCREEN; 


NEW “EINE(); 

SETCOr 15); 

PUT("Solar Cell Thickness is "); 

PUT(CELL_ THICKNESS,FORE= >2,AFT= >4,EXP=>0); 
PUTC cm );NEW LINE(2); 


when OTHERS = > 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
SETICOE®): 
PUT_LINE("Understand Default values will be used”); 


end case; -- CHARGE 
-- STOP; 
VIDEO.CLEAR SCREEN; 
PUT _LIN E (Hee sda cise icioioiiaioioicioioiioioiaiaioiaiaioineisioiiaiooiiaioioiioioitaioiat sick tao") 
PUT_LINE(*" SOLAR CELL PARAMETERS ARE ‘°); 
NEW _LINE(2); 
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Set COL(15); 

PUT("Temperature coefficient EOL CURRENT is "); 

SET_COL(60); 

PUT(TEMP_ COEF EOL CURRENT,FORE= >1,AFT=>4,EXP= >0); 
PUT(" ma/cm*2"); 


NEW_LINE(1); 

SemeCOL(15); 

PUT("Temperature coefficient EOL VOLTAGE is "); 

SET _COL(59); 

PUT(TEMP_COEF EOL _VOLTAGE,FORE= >1,AFT= >4,EXP=>0); 
PUT(" ma/cm*2"); 


NEW LINE(1); 

Sin COL(15); 

PUT("Current at Maximum Power is "); 

SET_COL(60); 

PUT(CURRENT MAX POWER ,FORE= >1,AFT= >4,EXP= >0); 
PUT(" Amps (Imp)"); 


NEW _LINE(1); 

SET_COL(15); 

PUT("Voltage at Maximum Power ts *); 

SET _COL(60); 

PUT(VOLTAGE MAX POWER ,FORE= >1,AFT=>4,EXP= >0); 
PUT(" Volts (Vmp)"); 


NEW _LINE()); 

SEt COL(15); 

PUT("Short Circuit Current 1s "); 

SET_COL(60); 

PUT(CURRENT SHORT CIRCUIT ,FORE=>1,AFT=>4,EXP= >0); 
PUT(" Amps (Isc)"); 


NEW _LINE(1); 

SET_COL(15); 

PUT("Open Circuit Voltage is "); 

SET_col(60); 

PUT(VOLTAGE OPEN CIRCUIT ,FORE=>1,AFT=>4,EXP=>0); 
PUT(" Volts (Voc)"); 


NEW _LINE(1); 

SET _COL(15); 

PUT("Solar Cell Width is "); 

Ska, COL(59); 

PUT(CELL_WIDTH,FORE= >2,AFT= >4,EXP=>0); 
rior” cm”); 


NEW_LINE(1); 
SET _COL(15); 
PUT("Solar Cell Length is "); 
SET_COL(59); 
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PUT(CELL_ LENGTH,FORE= >2,AFT=>4,EXP= >0); 
PUTC scm); 


NEW_LINE(1); 

SET _COL(15); 

PUT("Solar Cell Thickness is "); 

SET GOE@9), 

PUT(CELL_THICKNESS,FORE= >2,AFT= >4,EXP= >0); 
PUT(" cm"); 

NEW _LINE(i); 


PUT LIN EC 48 4EEEREREERAKER ERE SERS EE ee ee eee) 
NEW LINE(3); 

STOP; 

-- Cell current at maximum power point of EOL summer solstice 


> 


-- PUT(CURRENT_MAX_POWER,FORE= >4,AFT= >4,EXP= > 0); 

-- NEW_LINE(1); 

-- PUT(SOLSTICE_SOLAR_ARRAY_ TEMP ,FORE= >4,AFT=>4,EXP= > 0); 
-- NEW_LINE(1); 

-- PUT( TEMP_COEF EOL _CURRENT,FORE= >4,AFT= >4,EXP= >0); 

-- NEW_LINE(1); 

-- PUT(SOLAR_CELL_TEST_TEMP,FORE= >4,AFT= >4,EXP= >0); 

-- NEW_LINE(1); 

-- PUT(ENVIRONMENTAL DEGRADATION CURRENT ,FORE=>4,AFT=>4,EXP= >0); 
-- NEW_LINE(1); 

-- PUT(ASSEMBLY_LOSS CURRENT ,FORE=>4,AFT=>4,EXP= >0); 

-- NEW_LINE(1); 


< <REITERATE_VOLTAGE > > 


if FINAL = FALSE then 
VIDEO.CLEAR_ SCREEN; 
FINAL: =TRUE; 
PUT_LINE("PREVIOUSLY ENTERED DEFAULT VALUES OF FIRST ITERATION WILL BE USED"); 
PUT _LINE("BE USED ON THIS ITERATION EXCEPT FOR REQUESTED VALUES"); 


PUT _LINE(" ara ik kkk sk ok sk ea ae eo ab eae eee eek eae ee ORE i ee 


3 


NEW_LINE(2); 

PUT_LINE("Please enter the minimum satellite bus discharge voltage”); 
PUT_LINE(“about 30 volts”); 

SET_COL(10); 

GET DATA(MINIMUM_DISCHARGE BUS VOLTAGE); 
VIDEO.CLEAR_SCREEN; 

PUT(*Minimum discharge bus voltage is *); 
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PUT(MINIMUM_ DISCHARGE BUS VOLTAGE,FORE= >4,AFT= >2,EXP=>0); 
PUT(" volts"); 


NEW _LINE(2); 
Re See ee ak oe Re Re a ak ke ee ke) 
NEW _LINE(2); 
PUT("Please enter the DESIGN satellite bus voltage"); 
SET _COL(10); 
GET DATA(BUS_ VOLTAGE); 
VIDEO.CLEAR_ SCREEN; 
PUT("Bus voltage is "); 
PUT(BUS_ VOLTAGE,FORE= >4,AFT= >2,EXP=>0); 
Fer volts"); 
end if; 


bd 


NEW LINE(2); 

set COL(1); 

PUT("Series cells required for minimum discharge voltage FLOAT"); 

SERIES CELLS FOR MIN _DIS_VOLT:= 
((MINIMUM_ DISCHARGE BUS VOLTAGE+BYPASS DIODE VOLTAGE DROP) 
/EOL_BATTERY_ DISCHARGE VOLTAGE)+1.0;  -- 

SET_COL(64); 

PUT(SERIES CELLS FOR_MIN_ DIS VOLT, FORE => 4, AFT => 2, EXP => 0); 


N_ INTEGER: =INTEGER(SERIES CELLS FOR_MIN_DIS_ VOLT); 

Se COL(1); 

PUT("Series cells required for minimum discharge voltage INTEGER”); 

SET_COL(64); 

PUT(FLOAT(N_INTEGER),FORE= >4,AFT= >2,EXP= >0); 

if FLOAT(N_INTEGER) < SERIES CELLS FOR MIN DIS VOLT then 
N_INTEGER:=N_INTEGER +1; 

end if; 

SERIES CELLS FOR MIN DIS VOLT:=FLOAT(N_INTEGER); 

SET COL(I); 

PUT("Series cells required for minimum discharge voltage ROUND UP"); 

SET _COL(64); 

PUT(SERIES CELLS FOR_MIN_ DIS VOLT,FORE= >4,AFT= >2,EXP= >0); 

iNew LINE(2); 


PUT("Minimum discharge voltage is "); 
MINIMUM DISCHARGE BUS VOLTAGE:=((SERIES_CELLS FOR_MIN_DIS_VOLT-1.0) 

*EOL BATTERY_DISCHARGE_VOLTAGE)-BYPASS_DIODE_VOLTAGE DROP; 
SET COL(64); 
PUT(MINIMUM_ DISCHARGE BUS VOLTAGE,FORE= >4,AFT= >2,EXP=>0);PUT(" volts"); 
new_line(4); 


STOP; 
new_line(2); 


PUT_LINE(" The power required by a bus will be all or part of the total"); 
PUT_LINE("power. Therefore the batteries for each bus must provide"); 


147 


PUT_LINE("power for the maximum eclipse time of 1.2 hours for"); 
PUT_LINE("geosynchronous orbits."); 
new_line(2); 


CELL _AH:=(BATTERY_LOAD/NUMBER_OF_ BUSES*ECLIPSE TIME) 
/(MINIMUM_DISCHARGE BUS VOLTAGE*DEPTH_ OF DISCHARGE); 


PUT(" The required Cell capacity is "); 
PUT(CELL AH,FORE= >3,AFT= >2,EXP= >0); 
PUT(" ampere hours"); 


NEW_LINE(2); 

BUS POWER:=BATTERY LOAD/NUMBER OF BUSES; 

PUT ("Bus Power is "); 

PUT(BUS POWER,FORE= >4,AFT= >2,EXP=>0);PUT(" watts"); 
new_line(2); 

PUT _LINE(" To determine the maximum charge voltage it is assumed that an"); 
PUT("open circuit failure of a battery cell during charge is "); 

PUT(SERIES CONNECTED DIODE VOLTAGE DROP,FORE= >1,AFT=>2,EXP= >0); 
PUT(" volts"); 

NEW _LINE(1); 

PUT LINE("per diode usually accomodated by three series connected "); 
PUT_LINE("silicon diodes connected in parallel with the cell."); 

NEW _LINE(2); 

STOP; 


PUT LIN EC #2826 sect a ene aa ee 


NEW_LINE(2); 


° 
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MAXIMUM_CHARGE VOLTAGE:=MAXIMUM_BATTERY_CHARGE VOLTAGE 
*(SERIES CELLS FOR MIN_DIS_VOLT-1.0) 
+NUMBER SERIES CONNECTED DIODES 
*SERIES CONNECTED DIODE VOLTAGE DROP; 
VIDEO.CLEAR SCREEN; 
PUT("Maximum Charge Voltage 1s"); 
SET COL(64); 
PUT(MAXIMUM_ CHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" volts"); 
NEW_LINE(2); 


STOP; 

NEW _LINE(2); 

PUT(" The main bus voltage is regulated to + or - "); 

PUT(BUS_ VOLTAGE ALLOWABLE DEVIATION,FORE= >1,AFT= >2,EXP= >0); 
PUT(" volts"); 

NEW _LINE(1); 

PUT("Therefore the lower limit of the bus voltage is "); 
PUT(BUS_VOLTAGE-BUS_ VOLTAGE ALLOWABLE DEVIATION,FORE= >2,AFT= >2,EXP=>0); 
PUT(" volts"); 

NEW _LINE(1); 

PUT("The battery charger voltage drop (V_cd) is "); 
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PUT(BATTERY CHARGER VOLTAGE DROP,FORE= >2,AFT= >2,EXP=>0); 
PUT(" volts”); 
NEW _LINE(1); 


VOLTAGE_CHARGE_ARRAY:=MAXIMUM_CHARGE VOLTAGE-(BUS_VOLTAGE-BUS VOLTAGE A 
LLOWABLE_ DEVIATION) 
+BATTERY_CHARGER_VOLTAGE_ DROP: 


new_line(2); 

SET_COL(5); 

PUT("Then the boost voltage needed by the charge array is "); 
PUT(VOLTAGE CHARGE ARRAY, FORE= >2,AFT= >2,EXP= >0); 
PUT(" volts"); 

NEW LINE(1); 

PUT _LINE(" The charge current is applied to each bus on a 50% duty"); 
PUT_LINE("cycle. The charge rates are CELL ampere hours/15 for autumnal "); 
PUT_LINE("equinox and CELL ampere hours/45 for summer solstice. "); 
new_line(3); 

STOP; 

new_line(1); 

PUT_LINE("The currents are:"); 

NEW LINE(1); 


EQUINOX_CURRENT:=CELL AH/EQUINOX CHARGE RATE; 
PUT("Equinox current is "); 

SET COL(64); 

PUT(EQUINOX_CURRENT,FORE= >2,AFT= >2,EXP= >0); 
PUT(" amps”); 

NEW LINE(2); 


SOLSTICE CURRENT: =CELL AH/SOLSTICE CHARGE RATE; 
PUT("Solstice current is "); 

SET COL(64); 

PUT(SOLSTICE CURRENT,FORE= >2,AFT= >2,EXP= >0); 
PUT(" amps”); 

NEW _LINE(2); 


PUT _LINE("Charging or discharging at high rate is based on returning"); 

PUT LINE("the energy depleted during eclipse to each battery."); 

NEW _LINE(1); 

POWER_ EQUINOX CHARGE: =MAXIMUM_ CHARGE VOLTAGE*EQUINOX CURRENT; 
PUT("Power required for equinox charge at high rate is "); 

SET COL(64); 

PUT(POWER_EQUINOX_CHARGE,FORE= >3,AFT= >2,EXP= >0); 

PUT(" watts"); 

NEW _LINE(2); 


POWER SOLSTICE CHARGE:=MAXIMUM_ CHARGE VOLTAGE*SOLSTICE CURRENT; 
PUT("Power required for solstice charge at high rate is "); 

SET_COL(64); 

PUT(POWER_SOLSTICE_ CHARGE,FORE= >3,AFT= >2,EXP= >0); 

PUT(" watts"); 
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NEW _LINE(2); 


RECHARGE TIME:=((BATTERY_LOAD/NUMBER_OF_BUSES)*ECLIPSE TIME) 
/(POWER_EQUINOX_CHARGE * CHARGE DISCHARGE EFFICIENCY BATTERY); 
PUT("Recharge time is "); 

SET _COL(64); 

PUT(RECHARGE TIME,FORE= >3,AFT= >2,EXP= >0); 

PUT(" hours"); 

NEW _LINE(2); 


stop; 
CREATE(OUTF,NAME= > "CELPARAM.DAT"); 


PUT LINE(OUTE, "224222696224 2622124 2 224 98 22 2 4 of Co A of A oA ER AR fC A A Eo fC fo ok ok a ook ofa ok a) 
SET COL(OUTF,20); 
PUT _LINE(OUTF,”"ELECTRICAL POWER SUBSYSTEM PARAMETERS"); 


PUT_LINE(OUTF, BU ARR AR ROR AR 2 AR hs OS A AR AS ACG he A AG oe A A 2 A AS SO A so A AGO ob GR A ASO oR A A ee 


NEW_LINE(OUTF,2); 


SET_COL(OUTF, 15); 
PUT(OUTF, "PARAMETER’); 
SET _COL(OUTF, 46); 
PUT(OUTF, "SYMBOL’); 
SET COL(OUTF,61); 
PUT(OUTF, "VALUE’); 
SET_COL(OUTF,68); 
PUT(OUTF, UNITS"); 
NEW_LINE(OUTF,?2): 


PUTOEINE(OUTE: Fo 2 ke 2 2h he ee 2 he fe ee he 26 Re Ae ac ok he 2 2h IS IS 3 2 AG As 2 2 ai as 2 ak ah he 2 2h AS eR A ohare A RAE A 


PUT( OUTF, "Payload Power Requirements”); 

SET COL(OUTE Sa), 

PUT( OUTF,PAYLOAD POWER, FORE => 4, AFT => 2, EXP => 0); 
SET _COL(OUTF,69); 

PUT( OUTF, “watts"); 

NEW _LINE(OUTF,1); 


PUT( OUTF, "Housekeeping Power "); 

SET COL(OUTF,46); 

PUT(OUGE, Phk”); 

SET _COL(OUTF,58); 

PUT( OUTF,HOUSEKEEPING POWER, FORE => 4, AFT => 2, EXP => 0); 
SET_COL(OUTF,69); 

PUT( OUTF, "watts"); 

NEW _LINE(OUTF,1); 
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PUT( OUTF, "Load including load contingency”); 

SET_COL(OUTF,46); 

FEROuUTF,”Ptot"); 

SET_COL(OUTF,58); 

PUT(OUTF,BATTERY LOAD, FORE => 4, AFT => 2, EXP => 0); 
SET _COL(OUTF,69); 

PUT(OUTF, ’watts”); 

NEW _LINE(OUTF,1); 


PUT(OUTF, "Solar Array Load"); 

SET _COL(OUTF,46); 

PUT(OUTF, "Psal"); 

SET _COL(OUTF,58); 

PUT(OUTF,SOLAR ARRAY LOAD, FORE => 4, AFT => 2, EXP => 0); 
SET COL(OUTF,69); 

PUT(OUTF, watts”); 

NEw LINE(OUTF,!); 


PUT(OUTF, "Spacecraft Life”); 

SET COL(OUTF,58); 

PUT(OUTF,SPACECRAFT LIFE,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF,"years”); 

NEW eLINE(OUTF,!); 


PUT(OUTF, "Depth of Discharge"); 

SET COL(OUTF,46); 

PUT(OUTF,"DOD"); 

SET COL(OUTF,58); 

PUT(OUTF,DEPTH OF DISCHARGE,FORE= >4,AFT=>2,EXP= > 0); 
SET COL(OUTF,69); 

PU (OUTF,"%"); 

NEW _LINE(OUTF,1); 


PUT(OUTF,"EOL Battery Discharge Voltage”); 

SET_COL(OUTF,46); 

PUT(OUTF,"Vd"); 

set_ col(OUTF,58); 

PUT(OUTF,EOL BATTERY DISCHARGE _ VOLTAGE, FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF, "volts"); 

NEW _LINE(OUTF,1); 


PUT(OUTF, "Bypass Diode Voltage Drop"); 

SET COL(OUTF,46); 

PUT(OUTF," Vdd"); 

SET COL(OUTF,58); 

PUT(OUTF,BYPASS DIODE VOLTAGE DROP,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF, “volts"); 

NEW _LINE(OUTF,]1); 
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PUT(OUTF, "Design Satellite Bus Voltage”); 

SET _COL(OUTF,46); 

PUT(OUTF," Vbus"); 

SET -COL(OUTE 53): 

PUT(OUTF,BUS VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF, “volts"); 

NEW_LINE(OUTF,1); 


PUT(OUTF, "Bus Voltage Allowable Deviation"); 

SET COL(OUTF,46); 

PUT(OUTF, "Vbdev"); 

SET _COL(OUTF,58); 

PUT(OUTF,BUS VOLTAGE ALLOWABLE DEVIATION,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTE, "volts"); 

NEW LINE(OUTF.1): 


PUT(OUTF, "Minimum Bus Voltage in Sunlight"); 
SET COL(OUTF,46); 
PUT(OUTF,"Vbmin"); 
SET COL(OUTF,58); 


PUT(OUTF,BUS VOLTAGE-BUS_ VOLTAGE ALLOWABLE DEVIATION,FORE= >4,AFT=>2,EXP= >0); 
SET COL(OUTF,69); 
PUT(OUTF, “volts"); 
NEW_LINE(OUTF,1); 


PUT(OUTF, "Eclipse Time (Geosynchronous Orbits"); 

SET COL(OUTF,46); 

PUT(OUTF,"t"); 

SET COLE(OUTE 38); 

PUT(OUTF,ECLIPSE TIME,FORE= >4,AFT= >2,EXP= >0); 
SET _COL(OUTF,69); 

PUT(OUTF, hours"); 

NEW _LINE(OUTF,]1); 


PUT(OUTF, "Maximum Battery Charge Voltage"); 

SET _COL(OUTF,46); 

PUT(OUTF, "Vbc"); 

SET_COL(OUTF,58); 

PUT(OUTF,MAXIMUM_ CHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF, "volts"); 

NEW _LINE(OUTF,1); 


PUT(OUTF, "Number of Satellite Buses"); 


SET_COL(OUTF,46); 
PUT(OUTF, "Buses"); 
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SET _COL(OUTF,58): 
PUT(OUTF,J, WIDTH = > 4); 
NEW_LINE(OUTF, 1): 


PUT(OUTF,"Bus Power"), 

SET COL(OUTF,46); 

PUT(OUTF,"Vbus”"); 

SET COL(OUTF,58); 

PUT(OUTF,BUS POWER,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF, watts”); 

NEW_LINE(OUTF,]1); 


PUT(OUTF, "Number of Series Connected Diodes”); 

SET_COL(OUTF, 46); 

PUT(OUTF, "Ndiode”"); 

SEneeOL(OUTF,58); 

PUT(OUTF,NUMBER SERIES CONNECTED DIODES,FORE= >4,AFT= >2,EXP=>0); 
NEW_LINE(OUTF,1); 


PUT(OUTF, "Series Connected Diode Voltage Drop"); 

SET _COL(OUTF,46); 

PUT(OUTF,"Vdiode"); 

SET_COL(OUTF, 58); 

PUT(OUTF,SERIES CONNECTED DIODE VOLTAGE DROP,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTF,69); 

PUT(OUTF, "volts"); 

NEW LINE(OUTF,]1); 


PUT(OUTF, "Battery Charger Voltage Drop"); 

Sen COL(OUTF,46); 

me OUTF," Vcd"); 

SET COL(OUTF,58); 

PUT(OUTF,BATTERY CHARGER VOLTAGE DROP,FORE= >4,AFT=>2,EXP= >0); 
SET _COL(OUTF,69); 

PUT(OUTF, "volts"); 

NEW_LINE(OUTF,1); 


PUT(OUTF, "Equinox Current”); 

SET COL(OUTF,46); 

PUT(OUTF, "Ieq"); 

SET_COL(OUTF, 58); 

PUT(OUTF,EQUINOX CURRENT,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTF,69); 

PUT(OUTF,"amps"); 

NEW_LINE(OUTF, 1); 


PUT(OUTF, "Solstice Current"); 
SET COL(OUTF,46); 
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PUT(OUTF, "Iss"); 

SET_COL(OUTF,58); 

PUT(OUTF,SOLSTICE CURRENT,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTE,69), 

PUT(OUTF, amps"); 

NEW -EINE(OU REI): 


PUT(OUTF, "Battery Charge Discharge Efficiency”); 

SET_COL(OUTF,46); 

SET COL(OUTF,58); 

PUT(OUTF,CHARGE DISCHARGE EFFICIENCY BATTERY,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTF,69); 

PUT(OUTF," %”"); 


NEW_LINE(OUTF, 1); 


PUT(OUTF, "Number of Satellite Buses”); 
SET -COL(OUTE 38); 
PUT(OUTF,J,WIDTH= > 4); 

NEW _LINE(OUTF,1); 


PUT(OUTF, "Number of Battery Cells in Series”); 

SET COL(OUTF, 46); 

PUT(OUTF,"N"); 

SET_COL(OUTF,58); 

PUT(OUTF,SERIES CELLS FOR MIN DIS VOLT,FORE= >4,AFT=>2,EXP= >0); 
NEW _LINE(OUTF, 1); 


PUT(OUTF,”Minimum Discharge Bus Voltage”); 

SET COL(OUTF,46); 

PUT(OUTF,"Vdb’); 

SET_COL(OUTF,58); 

PUT(OUTF,MINIMUM_DISCHARGE BUS VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
SET _COL(OUTF,69); 

PUT(OUTF, "volts"); 

NEW _LINE(OUTF,1); 


PUT(OUTF, "Required Cell Capacity”); 

SET COL(OUTF,46); 

PUT(OUTE. Cc); 

SET COL(OUTF,58); 

PUT(OUTF,CELL AH,FORE= >4,AFT= >2,EXP= > 0); 
SET_COL(OUTF,69); 

PUT(OUTF,"AH"); 

NEW LINE(OUTF,1); 


PUT(OUTF, "Boost Voltage Req. by Charge Array”); 

SET COL(OUTF,46); 

PUT(OUTF,"Vca"); 

SET _COL(OUTF,58); | 
PUT(OUTF,VOLTAGE CHARGE ARRAY, FORE= >4,AFT= >2,EXP= >0); 
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SET COL(OUTF,69); 
PUT(OUTF, volts"); 
NEW LINE(OUTF,]1); 


PUT(OUTF,” Maximum Battery Charge Voltage”); 
SET_COL(OUTF, 46); 

PUdeUTr,” Vbc"); 

SET COL(OUTF,58); 


PUT(OUTF,BUS_VOLTAGE+MAXIMUM_BATTERY CHARGE VOLTAGE,FORE= >4,AFT= >2,EXP= 
> 0); 

SET _COL(OUTF,69); 

PUT(OUTF, "volts"); 

NEW_LINE(OUTF, 1); 


PUT(OUTF, "Power Req. Equinox Charge @ High Rate”); 
SET_COL(OUTF, 46); 

PUT(OUTF, "Pchrgeq”"); 

SET_COL(OUTF,58); 

PUT(OUTF,POWER EQUINOX _CHARGE,FORE= >4,AFT= >2,EXP= >0); 
SET _COL(OUTF,69); 

PUT(OUTF, *watts"); 

NEW_LINE(OUTF, 1); 


PUT(OUTF, "Power Reg. Solstice Charge @ High Rate”); 

SET COL(OUTF,46); 

PUT(OUTF, "Pchrgss"); 

SET COL(OUTF,58); 

PUT(OUTF,POWER SOLSTICE CHARGE,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTF,69); 

PUT(OUTF, "watts"); 

NEW LINE(OUTF,1); 


PUT(OUTF, "Recharge Time”); 

SET _COL(OUTF,46); 

PUT(OUTF, "Tcharge-e"); 

SET COL(OUTF,58); 

PUT(OUTF,RECHARGE TIME,FORE= >4,AFT= >2,EXP= >0); 

SET_COL(OUTF,69); 

PUT(OUTF, hours"); 

NEW LINE(OUTF,]); 

I eT TESTE AREER A EEE TEED EEE LEASE TESTERS OR ERE EERE REL TEE"): 


BIEEINE(O UID, SORE Ase ssa ee okie oto iciiaclcisiciiiciok iolbici eis ksiok eieiik ieee t toktek kets kok") 


> 


CLOSE(OUTF); 
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-- MATERIAL, 


VIDEO.CLEAR_ SCREEN; 

PUT_LINE("“SOLAR ARRAY DESIGN"); 

PUT _LINE(" The total load on the solar array will be the summation of”); 
PUT_LINE("the equipment load and the power required for charging the"); 
PUT _LINE("batteries. Generally, 10% solar array design margin is used"); 
PUT_LINE("to take into account the uncertainty in the radiation "); 
PUT _LINE("degradation and other design factors of the solar array."); 


-- should I use payload power or bus power 


DESIGN LOAD EQUINOX:=DESIGN MARGIN*(BATTERY LOAD+POWER_ EQUINOX CHARGE); 
NEW_LINE(2); 

PUT("The solar array design load at EQUINOX is "); 

SET COL(64); 

PUT(DESIGN LOAD EQUINOX,FORE= >5,AFT= >2,EXP=>0);PUT(" watts"); 


DESIGN LOAD _SOLSTICE:=DESIGN MARGIN*(BATTERY_LOAD+POWER SOLSTICE CHARGE); 
NEW -EINE@): 

PUT("The solar array design load at SOLSTICE is "); 

SET _COL(64); 

PUT(DESIGN_ LOAD SOLSTICE,FORE= >5,AFT= >2,EXP= >0);PUT(" watts"); 

NEW EINE). 

PUT _LINE(* The design load for either configuration will be divided "); 

PUT _LINE("by the total number of buses for the main load."); 

NEW _LINE(2); 


STOP; 
NEW_LINE(1); 


CELL CURRENT _EOL_SOLSTICE:=((CURRENT MAX POWER 
+TEMP COEF EOL CURRENT 
*(SOLSTICE SOLAR ARRAY TEMP-SOLAR CELL TEST _TEMP)) 
*ASSEMBLY LOSS CURRENT* ENVIRONMENTAL DEGRADATION CURRENT 
*SOLSTICE: SIF CURRENT): 

PUT _LINE("Solar Cell Current at Maximum Power Point "); 

PUT("EOL Summer Solstice I-V curve is "); 

SET COL(60); 

PUT(CELL_ CURRENT EOL SOLSTICE, FORE= >3,AFT= >4,EXP= >0);PUT(" Amps"); 

NEW_LINE(2); 


CELL CURRENT _EOL_ EQUINOX:=((CURRENT_ MAX POWER 
+TEMP_ COEF EOL CURRENT 
*(EQUINOX_SOLAR_ ARRAY TEMP-SOLAR_CELL_TEST_TEMP)) 
*ASSEMBLY_LOSS CURRENT* ENVIRONMENTAL DEGRADATION CURRENT 
*EQUINOX_SIF_ CURRENT); 

PUT_LINE("Solar Cell Current at Maximum Power Point "); 

PUT("EOL Autumnal Equinox I-V curve is "); 
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SET COL(60); 
PUT(CELL_CURRENT EOL EQUINOX, FORE= >3,AFT=>4,EXP=>0);PUT(" Amps"); 
NEW _LINE(2); 


REQUIRED CURRENT_SOLSTICE PER _BUS:=DESIGN LOAD SOLSTICE/NUMBER_OF_ BUSES 
/BUS_VOLTAGE; 

PUT("Required Current Solstice Per Bus"); 

SET COL(60); 

PUT(REQUIRED CURRENT SOLSTICE PER BUS,FORE= >3,AFT=>4,EXP= >0); 

PUT(" amps"); 

NEW _LINE(2); 


REQUIRED CURRENT EQUINOX _PER_BUS:=DESIGN_ LOAD EQUINOX/NUMBER_OF_BUSES 
/BUS_VOLTAGE; 

PUT LINE("Required Current Equinox Per Bus"); 

SET COL(60); 

PUT(REQUIRED CURRENT EQUINOX PER BUS,FORE= >3,AFT=>4,EXP= >0); 

PUT(" amps"); 

NeW SLINE(2); 


PUT("BUS VOLTAGE"); 

SET_COL(60); 

PUT(BUS_ VOLTAGE, FORE= >3,AFT= >4,EXP= >0); 
NEW _LINE(4); 


STOP; 


NEW _LINE(1); 
NUMBER CELLS IN PARALLEL: = 
REQUIRED CURRENT SOLSTICE PER BUS/CELL CURRENT EOL SOLSTICE; 

PUT("# cells in parallel for minimum current each bus is"); 

SEimCOL(65); 

PUT(NUMBER_ CELLS IN PARALLEL,FORE= >4,AFT= >2,EXP=>0); 
NEW _LINE(1); 
N_INTEGER:=INTEGER(NUMBER CELLS IN PARALLEL); 

PUT("S cells in parallel for minimum current INTEGER"); 

SET COL(65); 

PUT(FLOAT(N_INTEGER),FORE= >4,AFT= >2,EXP= >0); 

NEW LINE(1); 


if FLOAT(N_INTEGER) < NUMBER CELLS IN PARALLEL then 
N_INTEGER:=N_INTEGER+1; 
end if; 


NUMBER CELLS IN PARALLEL: =FLOAT(N_INTEGER); 

PUT("# cells in parallel for minimum current ROUND UP "); 

SET _COL(65); 

PUT(NUMBER CELLS IN PARALLEL,FORE= >4,AFT=>2,EXP= >0); 
new_line(2); 


--TEMP_OF CELL _CHARACS 
CELL VOLTAGE EOL SOLSTICE: =(VOLTAGE_MAX_POWER-PANEL WIRING_LOSS PER_CELL 
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+TEMP COEF EOL VOETAGE 
*(SOLSTICE SOLAR_ARRAY TEMP-SOLAR CELL TEST_TEMP)) 
*ENVIRONMENTAL DEGRADATION VOLTAGE; 
PUT("Solar Cell Voltage at EOL Solstice is "); 
SET_COL(65); 
PUT(CELL VOLTAGE EOL SOLSTICE,FORE= >1,AFT=>4,EXP=>0);PUT(" volts”); 
NEW _LINE(2); 


CELL VOLTAGE EOL EQUINOX:=(VOLTAGE MAX POWER-PANEL WIRING LOSS PER_CELL 
+TEMP COEF EOL VOLTAGE 
*(EQUINOX SOLAR ARRAY TEMP-SOLAR CELL TEST _TEMP)) 
*ENVIRONMENTAL DEGRADATION VOLTAGE; 

PUT("Solar Cell Voltage at EOL Equinox is "); 

SET_COL(65); 

PUT(CELL VOLTAGE EOL EQUINOX,FORE= >1,AFT= >4,EXP=>0);PUT(" volts”); 

NEW _LINE(2); 


NUMBER CELLS _IN_SERIES:=(BUS VOLTAGE + BLOCKING DIODE VOLTAGE DROP 
+ ARRAY WIRING HARNESS AND SLIP_RING_VOLTAGE DROP) 
/CELL_ VOLTAGE EOL SOLSTICE; 
PUT("4 series cells for minimum discharge voltage"); 
SET _COL(65); 
PUT(NUMBER CELLS IN_ SERIES,FORE= >4,AFT= >2,EXP= >0); 
new_line(1); 
N_INTEGER: =INTEGER(NUMBER CELLS IN_SERIES); 
PUT("4 series cells for minimum discharge voltage INTEGER"); 
SET _COL(6S); 
PUT(FLOAT(N_INTEGER),FORE= >4,AFT= >2,EXP= >0); 
NEW _LINE(1); 
if FLOAT(N_INTEGER) < NUMBER CELLS IN SERIES then 
N_INTEGER:=N_INTEGER+1; 
end if; 
NUMBER CELLS IN SERIES:=FLOAT(N_INTEGER); 
-- minimum discharge voltage 


PUT("# senes cells for minimum discharge voltage ROUND UP"); 

SET COL(6S5); 

PUT(NUMBER CELLS IN SERIES,FORE= >4,AFT= >2,EXP= >0); 
new_line(4); 


STOP; 


-- Cell current at maximum power point of EOL autumnal equinox 


NEW LINEG). 

CELL CURRENT _EOL EQUINOX:= (CURRENT MAX POWER+TEMP_ COEF EOL CURRENT 
*(EQUINOX SOLAR ARRAY TEMP-SOLAR CELL TEST_TEMP)) 
*ASSEMBLY LOSS CURRENT* ENVIRONMENTAL DEGRADATION CURRENT 
*EQUINOX_SIF_ CURRENT; 

PUT("Solar Cell Current at EOL Autumnal Equinox "); 

SET _COL(60); 
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PUT(CELL_CURRENT EOL EQUINOX, FORE=>1,AFT=>4,EXP=>0);PUT(" Amps"); 
NEW_LINE(2); 


CELL VOLTAGE EOL EQUINOX:=(VOLTAGE MAX POWER-PANEL WIRING LOSS PER CELL 

+TEMP COEF EOL VOLTAGE 
*(EQUINOX_ SOLAR ARRAY TEMP-SOLAR CELL TEST _TEMP)) 
*ENVIRONMENTAL_ DEGRADATION VOLTAGE; 

PUT("Solar Cell Voltage at EOL equinox is "); 

SET_COL(60); 

PUT(CELL_ VOLTAGE EOL EQUINOX,FORE= >1,AFT=>4,EXP=>0);PUT(" volts”); 

NEW_LINE(2); 


BUS _CURRENT:=CELL CURRENT _EOL EQUINOX*NUMBER CELLS IN PARALLEL; 
PUT("The current per bus or wing 1s "); 

SET_COL(60); 

PUT(BUS_ CURRENT, FORE= >3,AFT= >2,EXP=>0); 

PUT(" amps"); 

New LINE(2); 


BUS VOLTAGE:=(CELL VOLTAGE EOL EQUINOX*NUMBER_ CELLS_IN_SERIES) 
-(BLOCKING_ DIODE VOLTAGE DROP 
+ARRAY WIRING HARNESS AND SLIP RING VOLTAGE DROP); 

PUT("The voltage per bus or wing 1s "); 

SET COL(60); 

PUT(BUS VOLTAGE, FORE= >3,AFT=>2,EXP= >0); 

PUT(" volts"); 

NEW LINE(2); 


TOTAL POWER PER BUS:=BUS CURRENT*BUS_VOLTAGE; 
ARRAY _ TOTAL POWER:=TOTAL POWER _PER_BUS*NUMBER_OF_ BUSES; 
PUT("The Total Power is "); 

Sere OL (58); 

PUT(ARRAY TOTAL POWER, FORE= >5,AFT=>2,EXP= >0); 

PUT(" Watts"); 

NEW _LINE(4); 

STOP; 


wan 2 2 a a a a a af af afc ake afc afc akc ake ak 2 a a ae ake a a ae a a a ak ak ak ae ak a a a ak ae a a afc a ac a ake a af akc af af afc af ake af a af af aks ake aks ake ake a a ake a: ak a a 


if DRUM_ SPINNER = FALSE then 

POWER _ MARGIN:=DESIGN MARGIN*POWER_ TOTAL; 
else 

POWER_MARGIN:=DESIGN MARGIN*POWER_TOTAL/PI; 
end if; 


if ARRAY TOTAL POWER >= DESIGN _LOAD_EQUINOX and DRUM_SPINNER = TRUE then 
if (ARRAY TOTAL_POWER-DESIGN_ LOAD EQUINOX) > 100.0 then 
VIDEO.CLEAR_ SCREEN; 
PUT("Total array power is "); 
PUT(ARRAY_ TOTAL POWER-DESIGN_LOAD_ EQUINOX,FORE= >4,AFT= >2,EXP= > 0); 


159 


PUT(" watts more than needed."); 
NEW LINE(1); 
PUT_LINE("If substantially greater recommend DESIGN BUS VOLTAGE be reduced"); 
PUT_LINE("Recommend re-iterate to optimize design "); 
NEW _LINE(1); 
FINAL: =FALSE; 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR: =N; 
VIDEO.CLEAR SCREEN; 
goto REITERATE VOLTAGE; 
else 
goto MOVEON; -- <<MOVEON> > Exit if structure 
end if; 
end if; 


elsif ARRAY_TOTAL_ POWER < DESIGN LOAD EQUINOX then 
PUT("THE TOTAL ARRAY POWER IS "); 


PUT(ABS(DESIGN_ LOAD EQUINOX-ARRAY TOTAL _POWER),FORE= >4,AFT= >2,EXP= >0); 
PUT(" watts less than needed."); 
NEW _LINE(2); 
PUT("Recommend increasing DESIGN BUS VOLTAGE"); 
new_line(2); 
PUT_LINE("Recommend re-iterate to optimize design "); 
FINAL: =FALSE; 
SET COL(10); 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR: =N; 
VIDEO.CLEAR SCREEN; 
goto REITERATE VOLTAGE; 
else 
goto MOVEON; -- <<MOVEON> > Exit if structure 
end if; 


elsif (ARRAY_TOTAL_POWER-DESIGN LOAD EQUINOX) < 100.0 
and DRUM_SPINNER = FALSE 
and (ARRAY_TOTAL_POWER-DESIGN_ LOAD EQUINOX) > 0.0 then 


VIDEO.CLEAR SCREEN; 

PUT LINE("Design Bus Voltage and Minimum Discharge Bus Voltage”); 
PUT _LINE("are within optimal design parameters."); 

NEW _LINE(4); 

STOP; 


end if; 


< <MOVEON > > 
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-- CHARGE ARRAY DESIGN 

NEW _LINE(1); 

STOP; 

EPUmeLINE(" CHARGE ARRAY DESIGN"); 
PUT_LINE("---------------------------------------------------------------------- sa 6 


NUMBER CELLS IN SERIES CHARGE ARRAY SOLSTICE: = 
VOLTAGE CHARGE ARRAY/CELL VOLTAGE EOL SOLSTICE; 
NEW LINE(1); 
PUT("# of series cells for charge array during solstice, Nc, is "); 
SET COL(70); 
PUT(NUMBER CELLS IN SERIES CHARGE ARRAY SOLSTICE,FORE= >3,AFT= >2,EXP= >0); 
NEW LINE(1); 
N_INTEGER: =INTEGER(NUMBER CELLS IN SERIES CHARGE ARRAY SOLSTICE); 
PUT("# series cells charge during solstice, Nc, INTEGER 1s "); 
Sie COL(70); 
PUT(FLOAT(N_INTEGER), FORE= >3,AFT= >2,EXP= >0); 
NE yeLINE(1); 
if FLOAT(N_INTEGER) < NUMBER CELLS IN SERIES CHARGE ARRAY SOLSTICE then 
N_INTEGER:=N_INTEGER+1; 
end if; 
NUMBER_CELLS IN SERIES CHARGE ARRAY SOLSTICE: =FLOAT(N_INTEGER); 
SETeOL(1); 
PUT("# series cells charge during solstice, Nc, ROUND UP is "); 
SET COL(70); 
PUT(NUMBER CELLS IN SERIES CHARGE ARRAY SOLSTICE,FORE= >3,AFT= >2,EXP= >0); 
new_line(2); 


-- Parallel cells charge array solstice 


NUMBER_CELLS IN PARALLEL CHARGE ARRAY SOLSTICE: = 
CELL _AH/SOLSTICE_ CHARGE RATE/CELL_ CURRENT EOL SOLSTICE; 


Semm@cOL(1); 

PUT("# parallel cells charge array during solstice, Ncs, is "); 

SET _COL(70); 

PUT(NUMBER CELLS IN PARALLEL CHARGE ARRAY SOLSTICE,FORE= >3,AFT=>2,EXP=>0); 
NEW _LINE(1); 

N_INTEGER: =INTEGER(NUMBER CELLS IN PARALLEL CHARGE ARRAY SOLSTICE); 

PUT("# parallel cells charge array during solstice, Nes, INTEGER is "); 

SET_COL(70); 

PUT(FLOAT(N_INTEGER),FORE= >3,AFT= >2,EXP= >0); 


NEW LINE(1); 

if FLOAT(N_ INTEGER) < NUMBER CELLS IN PARALLEL CHARGE ARRAY SOLSTICE then 
N_INTEGER:=N_INTEGER +1; 

end if; 
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NUMBER CELLS IN PARALLEL CHARGE ARRAY SOLSTICE: =FLOAT(N_INTEGER); 

PUT("# parallel cells charging array during solstice, Ncs, ROUND UP is"); 

SET_COL(70); 

PUT(NUMBER CELLS IN PARALLEL CHARGE ARRAY SOLSTICE,FORE= >3,AFT= >2,EXP=>0); 
NEW _LINE(2); 


-- Parallel cells charge array equinox 


NUMBER CELLS IN PARALLEL CHARGE ARRAY EQUINOX:= 
CELL AH/EQUINOX CHARGE RATE/CELL CURRENT EOL EQUINOX; 


PUT("# parallel cells charge array during equinox, Nce, is "); 

SET _COL(70); 

PUT(NUMBER_CELLS IN PARALLEL CHARGE ARRAY EQUINOX,FORE= >3,AFT= >2,EXP= >0); 
NEW _LINE(1); 

N_ INTEGER: =INTEGER(NUMBER_ CELLS IN PARALLEL CHARGE ARRAY EQUINOX); 


PUT("# parallel cells charge array during equinox, Nce, INTEGER 1s "); 

SET _COL(70); 

PUT(FLOAT(N_INTEGER),FORE= >3,AFT= >2,EXP= >0); 

NEW LINE(1); 

if FLOAT(N_INTEGER) < NUMBER CELLS IN PARALLEL CHARGE ARRAY EQUINOX _ then 
N_INTEGER:=N_INTEGER +1; 

end if; 


NUMBER CELLS IN PARALLEL CHARGE ARRAY EQUINOX: =FLOAT(N_INTEGER); 

PUT("# parallel cells charge array during equinox, Nce, ROUND UP 1s "), 

SET _COL(70); 

PUT(NUMBER_CELLS IN PARALLEL CHARGE ARRAY EQUINOX,FORE= >3,AFT=>2,EXP= >0); 
NEW _LINE(4); 


ww EK a 2 2 ae 2 2c 2c 2c 2c 2k cc 24 oe ak 2c 2c 2c 2c 2c oe ac 2c 2c 2k ae 2k 2c afc afc akc ake ac afc afc afc ake afc ofc afc ofc 2k 2c ic 2c akc afc ofc 2c akc afc ac aie afc afc 2c aie aie ic 2c afc ak ic 2c 2k 2c afc ac 2c 2c 2c 


CREATE(OUTSC,NAME= > "SOLCELL.DAT"); 


SET_LINE(OUTSC, 1); 
PUT LINE(OUTSC, "2287 ort ste atest atest neake ste ate ae se ak aa ae aa 2b ake ea 2 ee ee Ac oe 2 ee oe ee aE ee ek hs SS Ss AA i ica 
SET_COL(OUTSC, 20); 

PUT(OUTSC, "SOLAR CELL CHARACTERISTICS"); 

new_line(OUTSC, 1); 

PUT LINE(OUT SC, "20502 setae stesteste states tes sete st he oe he ee 2 22 2a ote i A ie Ache Ae A AS A ok Nok Ae A SE A Ae AA 


NEW_LINE(OUTSC, 1); 


SET_COL(OUTSC, 15); 

PUT(OUTSC, "CHARACTERISTIC’); 
SET_COL(OUTSC,47); 

PUT(OUTSC, VALUE’); 

SET COL(OUTSC,59); 

PUT(OUTSC, UNITS’): 
NEW_LINE(OUTSC, 1); 


PU lr LINE(Ol rT SC, "eae ae esas steaks he see eae ake ae he 2 a ok 2 he ee hee ioe i ACS Ae Sica a ar eee 


ry 
bs 
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PUT(OUTSC,"TEMPERATURE BASIS FOR PERFORMANCE’); 

SET COL(OUTSC, 44); 

PUT(OUTSC,SOLAR CELL TEST TEMP ,FORE=>4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, “deg celcius"); 

NEW LINE(OUTSC, 1); 


PUT(OUTSC,"TEMPERATURE SOLAR ARRAY SOLSTICE"); 


SET COL(OUTSC,44); 

PUT(OUTSC,SOLAR_ARRAY_ TEMP SOLSTICE,FORE= >4,AFT=>2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, "deg celcius "); 

NEW _LINE(OUTSC, 1); 


PUT(OUTSC,"SOLAR ARRAY TEMPERATURE EQUINOX"); 


SET COL(OUTSC,44); 

PUT(OUTSC,SOLAR_ ARRAY TEMP EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
SET _COL(OUTSC,59); 

PUT(OUTSC, "deg celcius "); 

ew LINE(OUTSC, 1); 


PUT(OUTSC," TEMPERATURE COEFFICIENT EOL CURRENT "); 

SET COL(OUTSC,44); 

PUT(OUTSC,TEMP COEF EOL CURRENT,FORE= >1,AFT=>5,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC,"ma/deg celcius”); 

NEW LINE(OUTSC,]1); 


PUT(OUTSC, "TEMPERATURE COEFFICIENT EOL VOLTAGE "); 

SET _COL(OUTSC,43); 

PUT(OUTSC,TEMP COEF EOL VOLTAGE,FORE= >2,AFT= >5,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, “mv/deg celcius"); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC, "POWER PER SOLAR CELL"); 


SET COL(OUTSC,44); 

PUT(OUTSC,CELL CURRENT EOL EQUINOX*CELL VOLTAGE EOL EQUINOX 
,FORE= >3,AFT= >3,EXP=>0); 

SET COL(OUTSC,59); 

PUT(OUTSC, *watts"); 

NEW _LINE(OUTSC, 1); 
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PUT(OUTSC,”"CELL CURRENT @ MAX POWER POINT"); 

SET COL(OUTSC,44); 

PUT(OUTSC,CELL CURRENT EOL EQUINOX ,FORE= >3,AFT= >3,EXP= >0); 
SET COL(OUTSES>); 

PUT(OUTSC, amps"); 

NEW_LINE(OUTSC,1); 


PUT(OUTSC,”"CELL VOLTAGE @ MAX POWER POINT "); 

SET _COL(OUTSC,44); 

PUT(OUTSC,CELL VOLTAGE EOL EQUINOX ,FORE= >3,AFT= >3,EXP= >0); 
SET COL(OUTSC,S9); 

PUT(OUTSC, “volts”); 

NEW _LINE(OUTSC,1); 


PUT(OUTSC, "CURRENT - SHORT CIRCUIT"); 

SET COL(OUTSC,44); 

PUT(OUTSC,CURRENT_ SHORT CIRCUIT ,FORE= >3,AFT= >3,EXP= >0); 
SET (COL OUTSE 35>): 

PUT(OUTSC, "amps"); 

NEW _LINE(OUTSC,1); 


PUT(OUTSC," VOLTAGE - OPEN CIRCUIT"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,VOLTAGE OPEN CIRCUIT,FORE= >3,AFT= >3,EXP= >0); 
SET _COL(OUTSC,59); 

PUT(OUTSC, "volts"); 

NEW _LINE(OUTSC, 1); 


PUT(OUTSC,"CELL WIDTH"); 

SET_COL(OUTSC, 44); 

PUT(OUTSC,CELL_WIDTH,FORE= >3,AFT= >3,EXP= > 0); 
SET_COL(OUTSC,59); 

PUT(OUTSC, "cm "); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC “CEER LENGTH’): 

SET COL(OUTSC,44); 

PUT(OUTSC,CELL LENGTH,FORE= >3,AFT= >3,EXP= >0); 
SET (COL(OUTSE 59): 

PUT(OUTSC, cm”); 

NEW _LINE(OUTSC, 1); 


PUT(OUTSC, "CELL THICKNESS"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_THICKNESS,FORE= >3,AFT= >3,EXP= >0); 
SET_COL(OUTSC,58); 

PUT(OUTSC, "cm "); 

NEW_LINE(OUTSC, 1); 


-- SOLAR ARRAY DATA 


SET _LINE(OUTSC, 1); 
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PUT 0) Co) ee RRR ack Ace lc acede ea aa amici oki ok mbar ee RRA IO” )- 
SET_COL(OUTSC,20); 

PUT(OUTSC,”"SOLAR ARRAY SYSTEM CHARACTERISTICS"); 

new_line(OUTSC, 1); 

PUT ee eg Oe ee ee Ee ee RA”) 


NEW_LINE(OUTSC,1); 


SET_COL(OUTSC, 15); 

PUT(OUTSC, "CHARACTERISTIC’); 
SET_COL(OUTSC,47); 
PUT(OUTSC,"VALUE"’); 
SET_COL(OUTSC,59); 
PUT(OUTSC," UNITS’); 
NEW_LINE(OUTSC, 1); 


PUT_LINE(OUTSC, WY fe ate afc ate afc fe afc ae ate ae afc afc ae afc aye afc ae fe afc afc afc aie ae aoe aie aye 2c ee eee et): 


PUT(OUTSC, "DESIGN MARGIN’); 

SET _COL(OUTSC,44): 

PUT(OUTSC,DESIGN_MARGIN,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTSC,59); 

PUT(OUTSC," %"); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC, "DESIGN LOAD EQUINOX"); 

SET_COL(OUTSC, 44); 

PUT(OUTSC,DESIGN_ LOAD EQUINOX,FORE= >4,AFT= >2,EXP= > 0); 
SET_COL(OUTSC,59); 

PUT(OUTSC, "watts”); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC,”" DESIGN LOAD SOLSTICE"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,DESIGN LOAD SOLSTICE,FORE= >4,AFT= >2,EXP= > 0); 
SET COL(OUTSC,S59); 

PUT(OUTSC, "watts”); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC, "CELL CURRENT EOL SOLSTICE"); 

SET COL(OUTSC,44); 

PUT(OUTSC,CELL CURRENT EOL SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, amps"); 

NEW_LINE(OUTSC,]1); 


PUT(OUTSC, "REQUIRED CURRENT SOLSTICE PER BUS"); 

SET _COL(OUTSC,44); 

PUT(OUTSC,REQUIRED CURRENT SOLSTICE PER _BUS,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, amps"); 
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NEW _LINE(OUTSC, 1); 


PUT(OUTSC, "REQUIRED CURRENT EQUINOX PER BUS"); 

SET _COL(OUTSC,44); 

PUT(OUTSC,REQUIRED CURRENT EQUINOX PER _ BUS,FORE= >4,AFT=>2,EXP=>0); 
SET _COL(OUTSC,59); 

PUT(OUTSC, “amps"); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC,"NUMBER CELLS IN PARALLEL (FLAT PANEL)"); 

SET COL(OUTSC,44); 

PUT(OUTSC,NUMBER CELLS IN PARALLEL,FORE= >4,AFT=>2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, "solar cells"); 

NEW _LINE(OUTSC, 1); 


PUT(OUTSC, "NUMBER CELLS IN PARALLEL (CYLINDER)’); 
NUMBER_CELLS IN PARALLEL:=NUMBER_ CELLS IN PARALLEL*PI; 
N_INTEGER:=INTEGER(NUMBER_CELLS IN PARALLEL); 


if FLOAT(N_INTEGER) < NUMBER_CELLS IN PARALLEL then 
N_INTEGER:=N_INTEGER+1; 
end if; 


NUMBER_CELLS IN PARALLEL: =FLOAT(N_INTEGER); 

SET COL(OUTSC, 44); 

PUT(OUTSC,NUMBER CELLS IN PARALLEL,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, "solar cells"); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC,"CELL VOLTAGE EOL SOLSTICE"); 

SET COL(OUTSC,44); 

PUT(OUTSC,CELL VOLTAGE EOL SOLSTICE,FORE= >4,AFT=>2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, “volts"); 

NEW _LINE(OUTSC, 1); 


PUT(OUTSC,"NUMBER CELLS IN SERIES - PER BUS"); 

SET COL(OUTSC,44); 

PUT(OUTSC,NUMBER CELLS IN SERIES,FORE= >4,AFT=>2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, "solar cells"); 

NEW _LINE(OUTSC, }); 


PUT(OUTSC,"TOTAL NUMBER OF CELLS"); 

SET COL(OUTSC,44); 

PUT(OUTSC,NUMBER CELLS IN SERIES*NUMBER CELLS IN PARALLEL 
,FORE= >4,AFT= >2,EXP= >0); 

SET COL(OUTSC,59); 

PUT(OUTSC, "solar cells"); 


166 


NEW_LINE(OUTSC, 1); 


PUT(OUTSC,"CELL CURRENT EOL EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL CURRENT_EOL EQUINOX,FORE= >4,AFT=>2,EXP= >0); 
SET _COL(OUTSC,59); 

PUT(OUTSC, "amps"); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC, "REQUIRED BUS CURRENT EOL EQUINOX"); 
SET COL(OUTSC,44); 

PUT(OUTSC,BUS CURRENT,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, amps"); 

NEW LINE(OUTSC, 1); 


PUT(OUTSC,"CELL VOLTAGE EOL EQUINOX"); 

SET_COL(OUTSC,44); 

PUT(OUTSC,CELL_VOLTAGE EOL EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, "volts"); 

NEW LINE(OUTSC,1); 


PUT(OUTSC,"REQUIRED BUS VOLTAGE EOL EQUINOX"); 
SET _COL(OUTSC,44); 

PUT(OUTSC,BUS_ VOLTAGE,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTSC,59); 

PUT(OUTSC, "volts"); 

NEW _LINE(OUTSC,1); 


PUT(OUTSC,"TOTAL POWER PER BUS"); 

TOTAL_POWER_ PER BUS:=BUS CURRENT*BUS_ VOLTAGE; 

SET COL(OUTSC,44); 

PUT(OUTSC,TOTAL POWER PER BUS,FORE= >4,AFT= >2,EXP= >0); 
SET COL(OUTSC,59); 

PUT(OUTSC, "watts"); 

NEW_LINE(OUTSC,1); 


PUT(OUTSC,"TOTAL POWER AVAILABLE FROM ARRAY’); 
POWER _TOTAL:=TOTAL_ POWER _PER_BUS*NUMBER_OF BUSES; 
SET_COL(OUTSC,44); 

PUT(OUTSC,POWER_TOTAL,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTSC,59); 

PUT(OUTSC, watts"); 

NEW_LINE(OUTSC, 1); 


PUT(OUTSC,"POWER MARGIN 3-AXIS STABILIZED"); 
POWER_MARGIN:=POWER_TOTAL*(DESIGN_MARGIN-1.0); 
SET COL(OUTSC, 44); 

PUT(OUTSC,POWER_MARGIN,FORE= >4,AFT= >2,EXP= >0); 
SET_COL(OUTSC,59); 

PUT(OUTSC, "watts"); 
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NEW_LINE(OUTSC, 1); 


PUT(OUTSC,"POWER MARGIN DUAL-SPIN’); 
POWER_MARGIN: =POWER_TOTAL*(DESIGN MARGIN-1.0)/PI; 


SET COL(OUTSC,44); 


PUT(OUTSC,POWER MARGIN ,FORE= >4,AFT= >2,EXP= >0); 


SET_COL(OUTSC,59); 
PUT(OUTSC, "watts"); 
NEW_LINE(OUTSC, 1); 


CLOSE (OUTSC); 
end battery; 
begin -- MAIN 


PRINT HEADER; 


DUAL. SPIN 


OPERATING DATA 


BATTERY 


(DRUM_ SPINNER); 


(BATTERY_LOAD, 
DRUM_SPINNER, 
MINIMUM_DISCHARGE _BUS_VOLTAGE, 
BUS_VOLTAGE, 
BYPASS DIODE VOLTAGE DROP, 
EOL BATTERY DISCHARGE VOLTAGE, 
BUS POWER, 
PAYLOAD POWER, 
DEPTH_OF DISCHARGE, 
number_of_buses, 
SPACECRAFT LIFE, 
BELIPSE TIME) 


(BATTERY LOAD, 


DRUM_SPINNER, 
MINIMUM_DISCHARGE BUS VOLTAGE, 
BUS_ VOLTAGE, 

BYPASS DIODE VOLTAGE _DROP, 

EOL BATTERY DISCHARGE VOLTAGE, 
BUS POWER, 

PAYLOAD POWER, 

CELL_AH, 

DEPTH OF DISCHARGE, 

ECLIPSE TIME, 

VOLTAGE _CHARGE_ARRAY, 
NUMBER_OF_ BUSES, 
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MAXIMUM_BATTERY_CHARGE VOLTAGE, 
SERIES _CONNECTED_ DIODE VOLTAGE _DROP, 
NUMBER SERIES CONNECTED DIODES, 
BATTERY _CHARGER_VOLTAGE DROP, 
CHARGE DISCHARGE EFFICIENCY BATTERY, 
spacecraft life, 

POWER_EQUINOX_CHARGE, 

POWER SOLSTICE CHARGE); 


SET_COL(10);PUT("TO CONTINUE ENTER ANY INTEGER"); GET_INTEGER(I); 
VIDEO.CLEAR_SCREEN; 

NEW _LINE(2); 

PUT_LINE("DATA FILES FOR THIS DESIGN RUN ARE LOCATED IN THE FOLLOWING FILES:"); 
NEW LINE(1); 

PUT_LINE(" CELPARAM.DAT"); 

PUT _LINE(" SOLCELL.DAT "); 

NEW _LINE(1): 

PUT_LINE("TO KEEP DATA FROM BEING ERASED ON NEXT RUN"): 
PUT_LINE("USE DOS COMMAND REN (RENAME) "); 

NEW _LINE(1); 

PUT_LINE("EXAMPLE - REN SOLARCEL.DAT SOLARCEL.XYZ"): 


end SOLARPOWER; 
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Cc PASSIVE THERMAL CONTROL 


-- Title : Thermal Characteristics 
-- Author : David Lashbrook 

-- Date ; 15 February 1992 

-- Revised : 12 May 1992 

-- Compiler : OPENADA EXT 


-- Description : This procedure determines the delta velocity for insertion 

-- into geosynchronous orbit. 

with TEXT IO, GENERIC ELEMENTARY FUNCTIONS, GETDATA, VIDEO; 
use TEXT_IO, GETDATA ; 

procedure THERMAL is -- THERMAL CONTROL 


package FLOAT_INOUT is new FLOAT _IO(FLOAT); 

use FLOAT_INOUT; 

package INTEGER_INOUT is new INTEGER _IO(INTEGER); 

use INTEGER _INOUT; 

package BOOLEAN _INOUT is new ENUMERATION _IO(BOOLEAN); 

use BOOLEAN _INOUT; 

package GEF INOUT is new GENERIC ELEMENTARY_FUNCTIONS(FLOAT); 
use GEF INOUT; 


DEPTH_OF_ DISCHARGE : FLOAT: =0.65,; 
ECLIPSE TIME : FLOAT: =1.20; -- hours 
TIMESEGEIPSE : FLOAT: =72.0; -- minutes 

PI : constant FLOAT := 3.14159265359; 


SPACECRAFT LIFE, 
SPACECRAFT MASS BEFORE_APOGEE BURN, 
PAYLOAD POWER, 

BATTERY LOAD, 

NUMBER _OF BUSES, 


SOLAR_ARRAY LOAD : FLOAT; 

LIFE FACTOR : FLOAT := 1.05; = 

POWER MARGIN FLOAT. - =i; -- margin for error 
RADIATOR SPECIFIC HEAT : FLOAT  := 900.0; -- (watts*sec)\(kg*Kelvin) 
INTELSAT_7 REFERENCE : FLOAT = :=3445.0; -- kgs 

INTELSAT_6 REFERENCE : FLOAT =: =2227.0; -- kgs 

INTELSAT_5 REFERENCE : FLOAT: = 1900.0; -- 


INTELSAT_7 HOUSEKEEPING POWER: constant FLOAT : 
INTELSAT_6 HOUSEKEEPING POWER: constant FLOAT : 


613.0; -- intelsat VII 
347.0; -- intelsat VI 


lI 


INTELSAT_5 HOUSEKEEPING POWER: constant FLOAT := 211.0; -- intelsat V 


TEMPERATURE_AFTER_ EQUINOX, 
ABSOLUTE_TEMPERATURE, 


EQUILIBRIUM_TEMPERATURE, 
TIME MINIMUM_TEMP ECLIPSE, 
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HOUSEKEEPING POWER, 


HEAT RADIATED TO SPACE, 
TIME_CONSTANT, 
MINIMUM_OPERATING_ TEMPERATURE, 
RADIATOR AREA, 

RADIATOR_HEIGHT, 

SOLAR_ARRAY DIAMETER, 


THERMAL DISSIPATION, 

PERCENT PAYLOAD POWER DISSIPATION, 
HOUSEKEEPING PERCENT POWER DISSIPATION, 
TEMPERATURE_EQUINOX, 

TEMPERATURE EQUINOX CELCIUS, 


X ; FLOAT ; 

STEFAN BOLTZMANN : FLOAT := 5.67E-08; 

EFFICIENCY : FLOAT := 0.9; 

SOLAR_ASPECT_ COEFFICIENT SOLSTICE : FLOAT := 23.5; 
SOLAR_ASPECT_COEFFICIENT_EQUINOX : FLOAT := 0.0; 
SOLAR_INTENSITY_ SOLSTICE : FLOAT := 1397.0; -- W/m*2 
SOLAR_INTENSITY_EQUINOX : FLOAT := 1362.0; -- W/m*2 
RADIATOR_TEMPERATURE : FLOAT := 310.0; -- degrees kelvin 
RADIATOR_EMITTANCE EOL : FLOAT := 0.8; 

SOLAR _ABSORBTANCE EOL : FLOAT := 0.21; -- optical solar reflector 
SOLAR EMITTANCE EOL : FLOAT := 0.8; -- optical solar reflector 
BOL SOLAR_ABSORBTANCE : FLOAT := 0.08; -- optical solar reflector 
BOL_SOLAR_EMITTANCE : FLOAT := 0.8; -- optical solar reflector 
ABSOLUTE ZERO : FLOAT := 273.0; -- kelvin 

NUMBER THERMAL EMITTING FACES : FLOAT := 2.0; -- # thermal emitting faces 
MASS_RADIATOR_PLUS EQUIPMENT : FLOAT := 85.0; -- Kgs 

PERCENT PARTIAL POWER : FLOAT := 0.5; -- % 

OKAY : BOOLEAN := TRUE; 

DRUM_SPINNER : BOOLEAN := FALSE; 

Y, 

y; 

N, 

n, 

TAKE, 

CHAR : CHARACTER ; 

I, 

DECISION, 

J : INTEGER ; 


OUTH :FILE_TYPE; 


va 


procedure PRINT_HEADER is 

begin 
VIDEO.CLEAR SCREEN;SET_ LINE(1); 
NEW_LINE(2); 
SET_COL(10); 
PUT _LINE("This program walks through a THERMAL CONTROL design for"); 
SET _COL(10); 
PUT _LINE(‘a solar powered geosynchronous satellite. "); 
SET COL(10); 
PUT_LINE("AIl pertinent data will be saved to a file called THERMAL.DAT"); 
NEW_LINE; 

end PRINT HEADER; 


procedure DUAL SPIN (DRUM_SPINNER : in out BOOLEAN) is 
begin 
SET_COL(10); 
PUT_LINE("Is your spacecraft Spin Stabilized "); 
SET COLQ5); 
GET _CHARACTER(char); 
if CHAR = ’Y’ or CHAR = ’y’ then 
DRUM_SPINNER:=TRUE; 
if DRUM_SPINNER = TRUE then 
VIDEO.CLEAR_ SCREEN;SET_ LINE(1); 
SET_COL(10); 
PUT _LINE("Satellite is Spin Stabilized"); 
NEW TINE): 
PUT LINE #8 4 4 2 RR A A RE A A ROE Ae oh otk oR ie 2 2k eo A A 2 a eee 
end if; 
else 
VIDEO.CLEAR SCREEN;SET_ LINE(1); 
SET_COL(10); 
PUT_LINE("Satellite is Three Axis Stabilized"); 
NEW _LINE(2); 
PUT LINE(**##444 eet tt eee TEE ER REREEEAEEEEEA TALES E EERE Er et 
end if: | 
end DUAL SPIN; 


, 


procedure OPERATING DATA (BATTERY_LOAD : in out FLOAT; 
DRUM_SPINNER : in out BOOLEAN; 
RADIATOR_SPECIFIC_HEAT : in out FLOAT; 
RADIATOR_EMITTANCE EOL : in out FLOAT; 
MASS _RADIATOR_PLUS_ EQUIPMENT : in out FLOAT; 
EFFICIENCY : in out FLOAT; 
NUMBER THERMAL EMITTING FACES : in out FLOAT; 
PAYLOAD POWER : in out FLOAT; 
ECEIPSE TIME : in out FLOAT) is 


bie 


SPACECRAFT_MASS BEFORE APOGEE BURN, 
SOLAR_ARRAY_ LOAD, 

MASS REFERENCE, 

HOUSEKEEPING POWER REFERENCE : FLOAT; 


REPLACE : BOOLEAN := FALSE; 
CHOICE, 

CHANGE, 

INPUT INTEGER: 


begin 

if DRUM_SPINNER = FALSE then 
PUT _LINE(OUTH, "SPACECRAFT IS THREE AXIS STABILIZED"); 
PUT LINE(OUTH, ee ee eee) 
Ney seiNE(OUTH,1); 

else 
PUT _LINE(OUTH, "SPACECRAFT IS SPIN STABILIZED"); 
PUT LINE(OUTH A OE aaa ee a ie a a aaa 2 RE Fae Erte 2) 
NEW_LINE(OUTH, 1); 

end if; 


bd 


> 


SET COL(10); 

PUT LINE("Enter the mass of the spacecraft in kilograms"); 

SET _COL(10); 

GET _DATA(SPACECRAFT_ MASS BEFORE APOGEE BURN); 

VIDEO.CLEAR SCREEN;SET LINE(1); 

SET COL(15); 

PUT("Spacecraft mass before apogee motor burn is "); 
PUT(SPACECRAFT MASS BEFORE APOGEE BURN, FORE => 5, AFT => 1, EXP => Q); 
rem kes"); 


PUT(OUTH, "Spacecraft mass before apogee motor burn 1s _ "); 

Sel COL(OUTH,S55); 

PUT(OUTH,SPACECRAFT MASS BEFORE APOGEE BURN, FORE => 5, AFT => 2, EXP => QO); 
PUROUTH,” kgs"); 

NEW_LINE(OUTH,1); 


NEW _LINE(2); 


PUT_LINE(" shade ioiaioaiaiiokaciaciok dail aa G RE kk kak a skok ok ak a aki a a a aR a a AR AR A ok ok ak ok a Rk") 


NEW _LINE(2); 


MASS_REFERENCE: =INTELSAT_5_ REFERENCE; 

HOUSEKEEPING POWER_REFERENCE:=INTELSAT_5 HOUSEKEEPING POWER; 
-- The mass of the electrical power system is 

SET_COL(10); 

PUT_LINE("Enter the POWER requirements of the Spacecraft in watts."); 

Sel COL(15); 
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GET DATA(PAYLOAD_ POWER); 

NEW _LINE(2); 

SEP CORES): 

VIDEO.CLEAR SCREEN; 

PUT("Payload power requirements are "); 

PUT(PAYLOAD POWER, FORE => 6, AFT => 2, EXP => 0); 
PUT(" Watts"); 


PUT(OUTH, "Payload power requirements are "); 

SET COL(OUTH,S5S); 

PUT(OUTH,PAYLOAD_ POWER, FORE => 5, AFT => 2, EXP => 0); 
PUT(OUTH,” Watts"); 

NEW _LINE(OUTH, 1); 


NEW “LINE(2): 

PUT _ LINE (* #8 424 EE A ee ee aaa ea 
NEW _LINE(2); 

SET COLES), 

PUT_LINE("Choose which satellite you want as your reference for "); 

SET COL(S); 

PUT_LINE("housekeeping power and spacecraft mass in kilograms."); 

NEW _LINE@); 

PUT LINE(tt## £404 482 E EERE ED OT Oe a een 


NEW _LINE(1); 


° 
b] 


PUT_LINEC le e. “or 2): 

SET _COL(S5); 

PUTZEINEG Intelsat Vs Intelsat VI __—— Intelsat VII"); 

SE COLG): 

PUT_LINE("Mass 1900.0 kgs 2227.0 kgs 3445.0 kgs"); 
SET COS), 

PUT_LINE("Housekeeping 211.0 347.0 615-0): 
SET _COL(S5); 


PUT_LINE("Power” ); 

PUT LIN E1664 83 t eeeeee e  ernr eae aaa ae 
SET _COL(5); 

PUT LINE("For an INTELSAT V_ reference enter integer °1’ "); 
SET COL(5); 

PUT_LINE("For an INTELSAT VI reference enter integer °2’ "); 
SET_COL(S); 

PUT_LINE("For an INTELSAT VII reference enter integer °*3” "); 
SET COL(5); 

PUT_LINE("For your own reference value’s enter integer *4’ "); 
SET COEG): 

PUT_LINE("NO CHANGES ie intelsat 5 values enter integer ’5’ "); 
GET_INTEGER(CHOICE); 


+] 


case CHOICE is 
when 1=> 
MASS _REFERENCE:=INTELSAT 5 REFERENCE; 
HOUSEKEEPING POWER_REFERENCE:=INTELSAT_ 5 HOUSEKEEPING POWER; 
NEW_LINE(OUTH, 1); 
PUT(OUTH, "MASS and HOUSEKEEPING REFERENCE INTELSAT 5"); 
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NEW _LINE(OUTH, 1); 


when 2= > 
MASS _ REFERENCE: =INTELSAT_ 6 REFERENCE; 
HOUSEKEEPING_POWER_REFERENCE:=INTELSAT 6 HOUSEKEEPING POWER; 
NEW_LINE(OUTH, 1); 
PUT(OUTH,”MASS and HOUSEKEEPING REFERENCE INTELSAT 6”); 
NEW_LINE(OUTH,1); 


when 3= > 
MASS_REFERENCE: =INTELSAT_7 REFERENCE; 
HOUSEKEEPING _POWER_ REFERENCE: =INTELSAT_7 HOUSEKEEPING POWER; 
NEW_LINE(OUTH, 1); 
PUT(OUTH, "MASS and HOUSEKEEPING REFERENCE INTELSAT 7"); 
NEW _LINE(OUTH, 1); 


when 4= > 
NEW _LINE(2); 
NE Oe a er eae ee ee ee Ee EE EEE") 
NEW _LINE(2); 
VIDEO.CLEAR_SCREEN; 
PUT("Please enter desired REFERENCE MASS"); 
SET COL(15); 
GET_DATA(MASS_ REFERENCE); 
PUT(OUTH, "INPUT MASS REFERENCE "), 
SET_COL(OUTH,55); 
PUT(OUTH,MASS REFERENCE,FORE= >4,AFT= >2,EXP=>0); 
NEW_LINE(OUTH,1); 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
I ee Ce ee a a ee ee ee eS) 
NEW_LINE(2); 
PUT("Please enter desired HOUSEKEEPING POWER reference”); 
SET_COL(15); 
GET _DATA(HOUSEKEEPING POWER REFERENCE); 
PUT(OUTH, "INPUT HOUSEKEEPING POWER REFERENCE "); 
SET_COL(OUTH,55); 
PUT(OUTH, HOUSEKEEPING POWER_REFERENCE,FORE= >4,AFT= >2,EXP= >0); 
NEW LINE(OUTH,]1); 
VIDEO.CLEAR_ SCREEN; 

when OTHERS => 
NEW _LINE(2); 
SET _COL(S5); 
PUT("Understand INTELSAT V DATA WILL BE USED"); 
PUT(OUTH,”"MASS and HOUSEKEEPING REFERENCE INTELSAT 5"); 
NEW _LINE(OUTH,1); 

end case; 


b 


° 
3 
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HOUSEKEEPING_POWER: =(SPACECRAFT_MASS BEFORE APOGEE BURN 
/MASS_REFERENCE) 
*HOUSEKEEPING POWER REFERENCE; 

VIDEO.CLEAR_SCREEN; 

NEW _ LINE; 

SET _COL(10); 

PUT("Housekeeping power is "); 

SET COL(60); 

PUT(HOUSEKEEPING POWER, FORE => 6, AFT => 2, EXP => 0); 


NEW _LINE(3); 


PUT LINE("The Housekeeping Power value will be used in future calculations 1f”); 
PUT LINE("you want to use this value enter a ‘y’ for YES. If you wish to "); 
PUT LINE("change the value enter a ‘n’ for NO and the value you enter will "); 
put_line("be used in further further calculations"); 
NEW _LINE(2); 
PUT LINE ne ee Er ea ae 
NEW SEINE): 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
VIDEO.CLEAR_ SCREEN; 
NEW LINE(1); 
PUT("Payload power requirements are "); 
PUT(PAYLOAD_ POWER, FORE => 6, AFT => 2, EXP => 0); 
PUT(" Watts”); 
NEW _LINE(3); 
PUT("Please enter a value for the housekeeping power"); 
GET DATA(HOUSEKEEPING POWER); 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT LINE S442 440804 05% RE RO ee 


NEW _LINE(2); 


3 


3 


PUT("Housekeeping Power is "); 

SET_COL(60); 

PUT(HOUSEKEEPING POWER, FORE => 6, AFT => 2, EXP => 0); 
NEW _LINE(3); 

PUT("Payload power requirements are "); 

PUT(PAYLOAD_POWER, FORE => 6, AFT => 2, EXP => 0); 
PUT(" Watts”); 

NEW_LINE(3); 

STOE: 


end if; 
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PUT(OUTH, "Housekeeping power is "); 

Se ecOlL(OUTH,55); 

PUT(OUTH, HOUSEKEEPING POWER, FORE => 5, AFT => 2, EXP => 0); 
NEW_LINE(OUTH, 1); 


<<NEW VALUE> > 


VIDEO.CLEAR_ SCREEN; 
PUT LINE("FOLLOWING IS A LIST OF VARIABLES AND THEIR DEFAULT VALUES’); 
ae Sea "); 


PUT("EFFICIENCY oiey 
SET_COL(56); 

PUT(EFFICIENCY,FORE= > 4,AFT= >2,EXP= >0); 
NEW _LINE(1); 


PUTCSOLAR ASPECT COEFFICIENT SOLSTICE 21): 

SET_COL(S56); 

PUT(SOLAR_ASPECT_COEFFICIENT_SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" degrees”); 

NEW LINE(1); 


Pei SOLAR INTENSITY_SOLSTICE [3]"); 

SET_COL(56); 

PUT(SOLAR_INTENSITY SOLSTICE,FORE= >4,AFT=>2,EXP=>0); 
PUT(" Watts/m*2"); 

NEW _LINE(1); 


PUT("SOLAR INTENSITY EQUINOX [4]"); 

SET_COL(56); 

PUT(SOLAR _ INTENSITY _EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(" Watts/m*2"); 

NEW_LINE(1); 


PUT("RADIATOR_TEMPERATURE [S]"); 
SET_COL(56); 

PUT(RADIATOR TEMPERATURE, FORE= >4,AFT= >2,EXP= >0); 
PUT(" kelvin"); 

NEW _LINE(1); 


PUT("RADIATOR_ EMITTANCE EOL [6]"): 
SET_COL(56); 

PUT(RADIATOR EMITTANCE EOL,FORE= >4,AFT= >2,EXP= > 0); 
NEW _LINE(1); 


PUT("ABSOLUTE_ ZERO ")s 
SET_COL(S56); 

PUT(ABSOLUTE_ZERO,FORE= >4,AFT= >2,EXP= >0); 
Piluig(" kelvin"); 

NEW _LINE(1); 
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PUT("TIME ECLIPSE [7]"): 

SET COL(56); 

PUT(TIME_ECLIPSE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" kelvin"); 

NEW _LINE(1); 


PUT("NUMBER_THERMAL EMITTING FACES ist): 
if DRUM_SPINNER = TRUE and REPLACE = FALSE then 
NUMBER THERMAL EMITTING FACES:=1.0; 
end if; 
SET COL(G66); 
PUT(NUMBER_THERMAL EMITTING FACES,FORE= >4,AFT= >2,EXP=>0); 
NEW _LINE(1); 


PUT("MASS_RADIATOR_PLUS EQUIPMENT [9}"); 

SETECCRGG); 

PUT(MASS RADIATOR PLUS EQUIPMENT,FORE= >4,AFT= >2,EXP= >0); 
PUT. kos’); 

NEW _LINE(1); 


PUT("PERCENT PARTIAL POWER [10]"); 

SET COL(56); 

PUT(PERCENT_ PARTIAL_POWER*100.0,FORE= >4,AFT= >2,EXP= > 0); 
PUT(" %"); 

NEW _LINE(1); 


PUT("RADIATOR_ SPECIFIC HEAT [11]"); 
SET_COL(56); 

PUT(RADIATOR_SPECIFIC_HEAT,FORE= >4,AFT= >2,EXP= >0); 
PUT(" (watts*sec)\(kg*Kelvin)"); 

NEW _LINE(1); 


if REPLACE = FALSE then 
CHAR := N; 
PUT_LINE("If you desire to change any of the listed values please enter "); 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR :=N; 
PUT_LINE("Enter number corresponding to value you wish to change."); 
set_col(10); 
GET_INTEGER(CHANGE); 
VIDEO.CLEAR_ SCREEN; 
else 
VIDEO.CLEAR_ SCREEN; 
goto KEEP VALUES; 
end if; 
elsif REPLACE = TRUE then 
PUT_LINE("Enter number corresponding to value you wish to change.”); 
set_col(10); 
GET _INTEGER(CHANGE), 
VIDEO.CLEAR_ SCREEN; 
end if; 
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VIDEO.CLEAR_ SCREEN; 
case CHANGE is 
when 1 => 
PUT("Please enter a value for Efficiency (usually around 0.9)"); 
SET _COL(15); 
GET_DATA(EFFICIENCY); 
NEW _LINE(2); 
Rt Rie oe er EASTER EASE ee Ee"): 
NEW_LINE(2); 
Pt EFFICIENCY”); 
Ser COL(S0); 
PUT(EFFICIENCY,FORE= >4,AFT= >2,EXP= >0); 
NEW _LINE(1}); 


when 2 = > 
PUT("Please enter a value for Solar Aspect (usually 23.5 degrees)"); 
SET COL(15); 
GET DATA(SOLAR_ASPECT_COEFFICIENT_SOLSTICE); 
MEW LINE(2); 
eM Ee 0d pe pemceceateg res tees ares EEE ELAR AEE EAE EEE REE EE” ) 
NEW LINE(2); 
PUT("SOLAR_ASPECT_COEFFICIENT_SOLSTICE"); 
SET _COL(50); 
PUT(SOLAR_ASPECT_ COEFFICIENT_SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 
POI” degrees"); 
NEW _LINE(1); 


9 
’ 


when 3 => 
PUT("Please enter a value for Solar Intensity at Solstice (1397.0)"); 
SET COL(15); 
GET DATA(SOLAR_INTENSITY_SOLSTICE); 
NEW LINE(2); 
Se Geet eee ee ERLE RPE L ESAS TEETER EERE EES ECE ee ee eee"): 
NEW _LINE(2); 
PUT("SOLAR_INTENSITY_ SOLSTICE"); 
SET _COL(50); 
PUT(SOLAR_INTENSITY_SOLSTICE,FORE= >4,AFT= >2,EXP= > 0); 
PUT(" Watts/m*2"); 
NEW _LINE(]); 


when 4 => 
PUT("Please enter a value for Solar Intensity at Equinox (1362.0)"); 
SET _COL(5); 
GET_DATA(SOLAR_INTENSITY_EQUINOX); 
NEW _LINE(2); 
LITT TLDS OS RE Ea ascent tly Shade ola aaa 1 
NEW _LINE(2); 
PUT("SOLAR_INTENSITY_EQUINOX"); 
SET COL(S50); 
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PUT(SOLAR_INTENSITY_EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(" Watts/m*2"); 
NEW _LINE(1); 


when 5 = > 
PUT("Please enter a value for Radiator Temperature (310.0)"); 
SET COL(15); 
GET _DATA(RADIATOR_TEMPERATURE); 
NEW LINE), 
PUT LINE? 5084 ENE A a ee A Ae NR NN el ee 
NEW LINE(2); 
PUT("RADIATOR_ TEMPERATURE"); 
SET_COL(S50); 
PUT(RADIATOR_TEMPERATURE, FORE= >4,AFT= >2,EXP= >0); 
PUT(" kelvin"); 
NEW _LINE(\); 


e 
’ 


when 6 = > 
PUT("Please enter a value for Radiator Emittance (0.8)"); 
SETZCOL( 1): 
GET DATA(RADIATOR EMITTANCE EOL); 
NEW _LINE(2); 
PUT LINE(**###*##*+#422 2422422252 2 ee ES ee ee eae 
NEW _LINE@); 
PUT("RADIATOR_ EMITTANCE EOL"); 
SET. COL(50): 
PUT(RADIATOR_EMITTANCE_ EOL,FORE= >4,AFT= >2,EXP= >0); 
NEW LINE(1); 


° 
3 


when 7 => 
PUT("Please enter a value for Eclipse Time (72.0 minutes)”"); 
SET COL(15): 
GET DATA(TIME_ ECLIPSE); 
NEW _LINE(2); 
PUT LIN E(* #40 448 i RRA A Ha eA Rete mA Oe Ra PORE A ee 
NEW_EINE(); 
PUT EIMESECLIPSE’); 
SET - COLRGG); 
PUT(TIME ECLIPSE,FORE= >4,AFT= >2,EXP=>0); 
PUT(" kelvin"); 
NEW _LINE(1); 


e 
b 


when 8 = > 
PUT("Please enter a value for Emitting Faces (2.0)"); 
SET _COL(15); 
GET_DATA(NUMBER_THERMAL EMITTING_FACES); 
NEW _LINE(2); 
PUT _LIN E (ies Hass ease iodo ielaiciociaiaiciok oii oii a doar ack a dai a a aa ak a Aoi a a AoA AAO A A) 
NEW _LINE(2); 
PUT("NUMBER THERMAL EMITTING FACES’); 
SET _COL(S50); 
PUT(NUMBER_ THERMAL EMITTING FACES,FORE= >4,AFT= >2,EXP= >0); 


e 
> 
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NEW_LINE(1); 


when 9 => 
PUT("Please enter a value for Mass of Radiator plus equipment (85.0)"); 
SE1 COL(15); 
GET_DATA(MASS_RADIATOR_PLUS_ EQUIPMENT); 
NEW LINE(2); 
sean memm Cos err se ars as ok a SE A 2k ae eect te oe eee erie ete ak Ae") 
NEW _LINE(2); 
PUT("MASS_RADIATOR_PLUS_ EQUIPMENT"); 
Set COL(S0); 
PUT(MASS RADIATOR PLUS EQUIPMENT,FORE= >4,AFT= >2,EXP= >0); 
Per kgs"); 
NEW _LINE()); 


b 


when 10 => 
PUT("Please enter a value for Percent Partial Power (0.5)"); 
SE? COL(15); 
GET DATA(PERCENT PARTIAL POWER); 
NEW _LINE(2); 
Se i nee ese tee ete ee ero oe en el a ae ee area eee) 
NEW LINE(2); 
PUT("PERCENT PARTIAL POWER"); 
set -COL(50); 
PUT(PERCENT PARTIAL POWER*100.0,FORE= >4,AFT= >2,EXP= >0); 
PUTC %"); 
NEW _LINE(1); 
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when 11 => 
PUT("Please enter a value for Radiator Specific Heat”); 
SE?1 COL(15); 
GET_DATA(RADIATOR _ SPECIFIC_HEAT); 
NEW LINE(2); 
SR tS ec te Te) 
NEW LINE(2); 
PUT("RADIATOR_ SPECIFIC HEAT"); 
SET COL(S50); 
PUT(RADIATOR_SPECIFIC_HEAT,FORE= >4,AFT=>2,EXP= >0); 
PUT(" (watts*sec)\(kg*Kelvin) "); 
NEW_LINE(1); 


e 
b 


when others = > 
video.clear_screen; 
PUT_LINE("UNDERSTAND NO MORE CHANGES PLEASE ENTER AN ‘N’ FOR NEXT 
QUESTION"); 
PUT_LINE(“IF YOU STILL DESIRE TO MAKE CHANGES ENTER ‘Y’"); 
NEW _LINE(3); 


end case; 
NEW LINE); 


" e 
Bere DIN a oe ics ete sob cee es ee a eo NE Cn et ee sk ia Ack ah 2 a ); 


NEW _LINE(2); 
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NEW _LINE(2); 
CHAR := N; 
PUT _LINE("If you wish to change a value please enter a ‘y’ for YES"); 
PUT_LINE("otherwise enter a ‘n’ for NO "); 
REPLACE: =FALSE; 
GET _CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR := N; 
REPLACE: =TRUE; 
VIDEO.CLEAR_ SCREEN; 
goto NEW_VALUE; 


else 
VIDEO.CLEAR SCREEN; 
goto KEEP_ VALUES; 
INE Vy EINE (3): 
end if; 
STOP. 


< <KEEP VALUES> > 


PUT(OUTH, "EFFICIENCY"); 

SET_COL(OUTH,5S); 

PUT(OUTH, EFFICIENCY ,FORE= >5,AFT= >2,EXP= >0); 
NEW_LINE(OUTH, 1); 


PUT(OUTH, "SOLAR ANGLE SOLSTICE’); 

SET_COL(OUTH,S5S); 

PUT(OUTH,SOLAR_ ASPECT COEFFICIENT SOLSTICE,FORE= >5,AFT= >2,EXP=>0); 
PUT(OUTH,” degrees"); 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "SOLAR INTENSITY SOLSTICE’); 

SET_COL(OUTH,S55); 

PUT(OUTH,SOLAR_ INTENSITY SOLSTICE,FORE= >5,AFT=>2,EXP= >0); 
PUT(OUTH,” Watts/m*2"); 

NEW_LINE(OUTH, 1); 


PUT(OUTH,"SOLAR INTENSITY EQUINOX"); 

SET _COL(OUTH,SS); 

PUT(OUTH,SOLAR_ INTENSITY EQUINOX,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," Watts/m*2"); 

NEW _LINE(OUTH, 1); 

PUT(OUTH, "RADIATOR TEMPERATURE’); 

SET_COL(OUTH,;SS); 

PUT(OUTH,RADIATOR_TEMPERATURE,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," kelvin"); 

NEW_LINE(OUTH,1); 


PUT(OUTH,"RADIATOR EMITTANCE’); 


SET_COL(OUTH,55); 
PUT(OUTH,RADIATOR_EMITTANCE EOL,FORE= >5,AFT= >2,EXP= >0); 
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NEW_LINE(OUTH, 1); 


PUT(OUTH,”"ABSOLUTE ZERO’); 

SET_COL(OUTH,55); 

PUT(OUTH, ABSOLUTE_ZERO,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” kelvin"); 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "TIME ECLIPSE"); 

SET _COL(OUTH,S5S); 

PUT(OUTH, TIME ECLIPSE,FORE= >5,AFT= >2,EXP=>0); 
PUT(OUTH,” kelvin”); 

NEW _LINE(OUTH, 1); 


PUT(OUTH, "NUMBER THERMAL EMITTING FACES’): 

SET_COL(OUTH,55); 

PUT(OUTH,NUMBER_THERMAL EMITTING FACES,FORE= >5,AFT= >2,EXP= >0); 
NEW_LINE(OUTH, 1); 


PUT(OUTH,”"MASS RADIATOR PLUS EQUIPMENT"); 

SET COL(OUTH,S5S); 

PUT(OUTH,MASS RADIATOR_PLUS_EQUIPMENT,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," kgs"); 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "PERCENT PARTIAL POWER’); 

SET_COL(OUTH,55); 

PUT(OUTH,PERCENT PARTIAL POWER*100.0,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” %"): 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "RADIATOR SPECIFIC HEAT"); 

SET COL(OUTH,5S5S); 

PUT(OUTH, RADIATOR _SPECIFIC_HEAT,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” (watts*sec)\(kg*Kelvin)"); 

NEW_LINE(OUTH, 1); 


end OPERATING DATA; 


procedure HEAT (BATTERY LOAD : in out FLOAT; 
DRUM_SPINNER : in out BOOLEAN; 
RADIATOR_AREA : in out FLOAT; 
PAYLOAD _POWER ; in out FLOAT; 
TEMPERATURE _AFTER_EQUINOX : in out FLOAT; 
THERMAL DISSIPATION : in out FLOAT; 
ECLIPSE TIME > in out FLOAT) is 


iME ECLIPSE : FLOAT :=72.0; 
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ECLIPSE TIME MINUTES : constant FLOAT := 72.0; -- eclipse time in minutes 


TIME_CONSTANT, 
TIME_CONSTANT_MINUTES, 
TIME ECLIPSE_ONE, 

TIME ECLIPSE TWO, 
EQUINOX_TEMP_ONE, 
EQUINOX TEMP TWO, 
CONST, 


SOLAR_ABSORBTANCE BOL, 

SOLAR _ABSORBTANCE EOL, 
RADIATOR_EMITTANCE EOL, 
EMITTANCE BOL : FLOAT ; 


begin 
VIDEO.CLEAR SCREEN; 
PUT _LINE(" Thermal properties of surfaces are listed in the text"); 
PUT_LINE("Design of Geosynchronous Spacecraft by Bnj Agrawal”); 
PUT_LINE(“in Table 5.3 pg. 275"); 
PUT_LINE("the properties listed are Solar Absorbtance for EOL and BOL"); 
PUT _LINE("as well as Emittance for EOL and BOL"); 
PUT _LINE("The following surfaces are listed and can be used for thermal"); 
PUT _LINE("radiation surfaces in your calculations."); 
NEW_LINE(1); 
PUT LINE(" Surface Typical Application "); 
PUT _LINE("-------------------------------n nn nnn nnn nnn nnn nn nnn nnnnnneee =) 
PUT LINE(" Black Paint Interior Structure”); 
PUT _LINE(" White Paint Antenna Reflector"); 
PUT _LINE(" Optical Solar Reflector(OSR) North & South Panel Reflectors”); 


PUT _LINE(" Aluminized Kapton Thermal Insulation”); 
PUT_LINE(" Tiodized Titanium Apogee Motor Thermal Shield”); 
PUT _LINE(" Aluminum ,"); 

PUT _LINE(" aluminum tape Propellent Insulation”); 
PUTLEINEC deposited aluminum"); 

PUT_LINE(" Anodized Aluminum Interior Structure”); 

PUT _LINE(" Solar Cells Solar Panels"); 

STOP; 


VIDEO.CLEAR_SCREEN; 


PUT_LINE("Please enter your choice for thermal emitting surface"); 
PUT_LINE("to be used for calculations try (OSR) CHOICE [3] first °); 

PUT _LINE("---------------- 20 2n enon nnn nnn nnn nnn nn nnn nnn rece rec cncnccencerrees “ye 
PUT_LINE("SURFACE CHOICE SOLAR ABSORBTANCE EMITTANCE"); 
PUT _LINE(" ---------------------------------0--nn nnn nnn nn nnn nn nn nn nnn nnennnn- Ds 

PUT _LINE(" BOL EOL BOL EOL"); 
PUT_LINE(" -------------------------------- 2-07-02 222 nnn nn nnn nnn nnnnn anna ane OF 
PUT_LINE("Black Paint [1] 0.9 0.9 0.9 0.9"); 
PUT_LINE("White Paint [2] Oe 0.6 0.9 oS), 
PUT_LINE("Optical Solar Ref. [3] 0.08 O71 0.8 0.8"); 
PUT_LINE("Graphite Epoxy [4] 0.84 0.84 0.85 0.85"); 


PUT_LINE(" 


Aluminized Kapton [5] 0535 0.50 0.6 0.6"); 
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PUT_LINE("Tiodized Titanium [6] 0.6 0.6 0.6 0.6"); 
PUT LINE("Aluminum Depos/Tape [7] 0.12 0.18 0.06 0.06"); 


PUT LINE("Anodized Aluminum [8] OZ 0.6 0.8 0.8 "); 
PUT LINE("Solar Cells [9] 0.7 0.7 0.82 O82); 
PUT _LINE("YOUR VALUES Ol); 


GET_INTEGER(DECISION); 
video.clear_screen; 
case DECISION is 


When |= > 
SOLAR_ABSORBTANCE BOL := 0.9. ; 
SOLAR_ABSORBTANCE EOL := 0.9 ; 
RADIATOR EMITTANCE EOL:= 0.9 ; 
EMITTANCE BOL c=—10.9 
PUT _LINE(OUTH,"RADIATOR MATERIAL IS BLACK PAINT"); 
when 2=> 
SOLAR ABSORBTANCE BOL := 0.2 ; 
SOLAR_ABSORBTANCE EOL := 0.6 ; 
RADIATOR EMITTANCE EOL:= 0.9 ; 
EMITTANCE BOL se ee 
PUT _LINE(OUTH,"RADIATOR MATERIAL IS WHITE PAINT"); 


when 3= > 
SOLAR ABSORBTANCE BOL := 0.08 ; 
SOLAR _ABSORBTANCE EOL := 0.21 ; 
RADIATOR_EMITTANCE EOL:= 0.8 ; 
EMITTANCE BOL 7— 0.50); 
PUT_LINE(OUTH,"RADIATOR MATERIAL IS OPTICAL SOLAR REFLECTOR’); 


when 4= > 
SOLAR ABSORBTANCE BOL := 0.84 ; 
SOLAR _ABSORBTANCE EOL := 0.84 ; 
RADIATOR_EMITTANCE EOL:= 0.85 ; 
EMITTANCE BOL 70.05 05 
PUT_LINE(OUTH,”"RADIATOR MATERIAL IS GRAPHITE EPOXY"); 


when 5= > 

SOLAR _ABSORBTANCE BOL := 0.35 ; 

SOLAR_ABSORBTANCE EOL := 0.50 ; 

RADIATOR EMITTANCE EOL:= 0.6. ; 

EMITTANCE BOL —tOCGy <: 

PUT_LINE(OUTH,"RADIATOR MATERIAL IS ALUMINIZED KAPTON"); 
when 6= > 

SOLAR ABSORBTANCE BOL := 0.6. ; 

SOLAR _ABSORBTANCE EOL := 0.6 ; 

RADIATOR EMITTANCE EOL:= 0.6 ; 

EMITTANCE BOL el 

PUT_LINE(OUTH,"RADIATOR MATERIAL IS TIODIZED TITANIUM"), 
when 7=> 

SOLAR_ABSORBTANCE BOL := 0.12 ; 

SOLAR_ABSORBTANCE EOL := 0.18 ; 

RADIATOR_EMITTANCE EOL:= 0.06 ; 
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EMITTANCE BOL := 0.06 ; 
PUT_LINE(OUTH,"RADIATOR MATERIAL IS ALUMINUM DEPOSITS OR TAPE’); 


when 8= > 
SOLAR_ABSORBTANCE BOL := 0.2  ; 
SOLAR ABSORBTANCE EOL := 0.6 ; 
RADIATOR_EMITTANCE EOL:= 0.8  ; 
EMITTANCE BOL = 0.305: 
PUT_LINE(OUTH, "RADIATOR MATERIAL IS ANODIZED ALUMINUM’); 


when 9= > 
SOLAR_ABSORBTANCE BOL := 0.7 ; 
SOLAR_ABSORBTANCE EOL := 0.7 ; 
RADIATOR_EMITTANCE EOL:= 0.82 ; 
EMITTANCE BOL := 0.82 ; 
PUT _LINE(OUTH,"RADIATOR MATERIAL IS SOLAR CELLS"); 


When 10=> 
VIDEO.CLEAR SCREEN; 
PUT("Please enter value for SOLAR ABSORBTANCE at BOL"); 
SET_COL(15); 
GET DATA(SOLAR_ABSORBTANCE BOL); 
NEW _LINE(2); 
PUT _LINE (ees sse se aisiciicisiiaisiciioisiaisioiicisi icisiicisiisiog iaisiokioioiisiog iaioiok ook taisiok iaiokicak a) 
NEW LINE(2); 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter value for SOLAR ABSORBTANCE at EOL”); 
SET_COL(15); 
GET DATA(SOLAR_ABSORBTANCE EOL); 
NEW _LINE(2); 
PUT LINE( #42444 4044 tae eee ee ee nee eee 
NEW_LINEQ: 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter value for EMITTANCE at BOL"); 
SEP (COLES), 
GET _DATA(EMITTANCE BOL); 
NEW _LINE(2); 
PUT LINE(C 445 RR re ee nee ee ee ee 
NEW LINE@): 
VIDEO.CLEAR SCREEN; 
NEW _LINE(2); 
PUT LIN EC Stet ee oe EE OR aT ee 
NEW _LINE(2); 
VIDEO.CLEAR SCREEN; 
PUT("Please enter value for EMITTANCE at EOL"); 
SET COL(15): 
GET DATA(RADIATOR_ EMITTANCE EOL); 
NEW LINE(2); 
PUT LIN ECE 4 5626 0 te roe a NEES ee ae 
NEW _LINE(2); 
VIDEO.CLEAR_ SCREEN ; 


, 


* 
’ 


e 
> 


° 
> 
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when others= > 
SOLAR_ABSORBTANCE BOL:= 0.08 ; 
SOLAR _ABSORBTANCE EOL:= 0.21 ; 
RADIATOR _ EMITTANCE EOL:= 0.8 
EMITTANCE BOL := 0.8 
NEW LINE(2); 
PUT(" Values for absorbtance and emittance are for Optical Solar Reflector (OSR)"); 
NEW _LINE(1); 


e 
bd 


e 
> 


end CASE; 


PUT _LINE("Values for absorbtance and emittance are: "); 

NEW LINE(2); 

PUT("SOLAR ABSORBTANCE BOL "); 

SET_COL(60); 

PUT(SOLAR_ABSORBTANCE BOL,FORE= >1,AFT= >2,EXP= >0); 


NEW _LINE(2); 

PUT("SOLAR ABSORBTANCE EOL "); 

SET _COL(60); 

PUT(SOLAR_ABSORBTANCE EOL,FORE= > 1,AFT=>2,EXP= >0); 


NEW_LINE(2); 

PUT("RADIATOR EMITTANCE BOL "); 

SET _COL(60); 

PUT(EMITTANCE_BOL,FORE= > 1,AFT= >2,EXP= >0); 


NEW _LINE(2); 

PUT("RADIATOR EMITTANCE EOL "); 

SET_COL(60); 

PUT(RADIATOR_ EMITTANCE _EOL,FORE= > 1,AFT= >2,EXP= >0); 


PUT(OUTH, "Values for absorbtance and emittance are: "); 

NEW _LINE(OUTH,1); 

PUT(OUTH,"SOLAR ABSORBTANCE BOL "); 

pene ORMOUTH,SS); 

PUT(OUTH,SOLAR_ABSORBTANCE BOL,FORE= >5,AFT= >2,EXP= >0Q); 
NEW _ LINE(OUTH, 1); 


PUT(OUTH,"SOLAR ABSORBTANCE EOL "); 

SET _COL(OUTH,55); 

PUT(OUTH,SOLAR_ABSORBTANCE_ EOL,FORE= >5,AFT= >2,EXP= >0); 
NEW_LINE(OUTH, 1); 


PUT(OUTH, "EMITTANCE BOL "); 

SET_COL(OUTH,SS); 

PUT(OUTH, EMITTANCE BOL,FORE= >5,AFT= >2,EXP= > 0); 
NEW_LINE(OUTH, 1); 


PUT(OUTH, "EMITTANCE EOL "); 
SET_COL(OUTH,5S); 
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PUT(OUTH,RADIATOR_EMITTANCE_EOL,FORE= >5,AFT= >2,EXP= > 0); 
NEW_LINE(OUTH,2); 


NEW _LINE(2); 


PUT LINE(C #***# 254 2% 52 24 i ar cee a ce 


NEW _LINE(2); 


, 


STOP; 
VIDEO: CLEAK SCREEN: 


< <TOOBIG> > 
PUT LINE("Please enter the PERCENT PAYLOAD POWER that must be "); 
PUT _LINE("dissipated as heat Example: Enter 59% as ’0.59’ "); 
NEW sEINE@). 
PUT LINE( *#*##**t4 4 tt ee ee ee 
NEW sti NE@): 
SET COL(10); 
GET DATA(PERCENT PAYLOAD POWER DISSIPATION); 
if PERCENT PAYLOAD POWER DISSIPATION > 1.0 then 
PUT _ LINE(! t*4424* 422025 eee ee ee eae 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT LINE("Please use a value Jess then 1.0"); 
NEW _LINE(2); 
PUT LINE F*#4#44 4424 eEEEERERES EE EEE EE EEE ES EE ae 
goto TOOBIG; 
end if; 
NEW LINE(2); 
PUT("Percent Payload Power Dissipated as Heat is_ "); 
SET_COL(S50); 
PUT(PERCENT_ PAYLOAD POWER _DISSIPATION*100.0, FORE= >2,AFT= >2,EXP= >0); 
PUTS 70>): 
NEW _LINE(2); 


5 


6 
+ 


$ 


PUT(OUTH,"Percent Payload Power Dissipated as Heat is "); 

SET_COL(OUTH,;S5S); 

PUT(OUTH,PERCENT PAYLOAD POWER _DISSIPATION*100.0, FORE= >5,AFT= >2,EXP= >0Q); 
PUT(OUTH,” %"); 

NEW_LINE(OUTH,]1); 


< <TOOBIGH> > 
PUT LINE("Please enter the PERCENT OF HOUSEKEEPING POWER that must be "); 
PUT LINE("dissipated as heat Example: Enter 23% as 0.23" °); 
SET CORO); 
GET _DATA(HOUSEKEEPING PERCENT POWER _ DISSIPATION); 
if HOUSEKEEPING PERCENT POWER DISSIPATION > 1.0 then 
VIDEO.CLEAR_ SCREEN; 
PUT LINE S882 00 6 tee he ee Re a ae eee eae 
NEW_LINE(2); 
PUT_LINE("Please use a value less then 1.0"); 
NEW _LINE(2); 


° 
b 
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goto TOOBIGH; 
end if; 
VIDEO.CLEAR_ SCREEN; 
NEW _LINE(2); 
PUT("Percent Payload Power Dissipated as Heat is "); 
SET _COL(S50); 
PUT(PERCENT_ PAYLOAD POWER _DISSIPATION*100.0, FORE= >2,AFT= >2,EXP= >0); 
PUT(" %"); 
Ney LINE(2); 
PUT("Percent Housekeeping Power Dissipated as Heat is "); 
Set COL(50); 
PUT(HOUSEKEEPING_PERCENT_ POWER_DISSIPATION*100.0, FORE= >2,AFT= >2,EXP= > 0); 
PUT(" %"); 
PUT(OUTH, "Percent Housekeeping Power Dissipated as Heat is "); 
SET COL(OUTH,SS); 
PUT(OUTH, HOUSEKEEPING PERCENT POWER DISSIPATION*100.0, FORE=>5,AFT= >2,EXP= >0); 
PUT(OUTH,” %"); 
NEW _LINE(OUTH, 1); 
NEW _LINE(2); 
ten ce ee oe ee Oe aor kick + ok tok kok ae" ) 
NEW_LINE(2); 
STOP; 
-- Thermal Dissipation calculation 


s 
> 


if DRUM_SPINNER = FALSE then 


THERMAL DISSIPATION: =(1.0/NUMBER THERMAL EMITTING FACES) 
*(PAYLOAD POWER*PERCENT PAYLOAD POWER DISSIPATION 
+HOUSEKEEPING POWER*HOUSEKEEPING PERCENT POWER _ DISSIPATION); 

NEW _LINE(2); 

PUT("Thermal Dissipation is *); 

SET _COL(60); 

PUT(THERMAL DISSIPATION,FORE= >5,AFT= >2,EXP= >0); 

PUT(" Watts"); 


PUT(OUTH, "Thermal Dissipation is "); 

SET_COL(OUTH,55); 

PUT(OUTH,THERMAL DISSIPATION, FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," Watts”); 

NEW_LINE(OUTH, 1); 


-- Radiator Area calculation 


RADIATOR AREA:=THERMAL DISSIPATION/((RADIATOR_ EMITTANCE EOL*STEFAN_BOLTZMANN 
*RADIATOR_TEMPERATURE**4.0*EFFICIENCY)-(SOLAR_ABSORBTANCE EOL 
*SOLAR_INTENSITY SOLSTICE 
*SIN(SOLAR_ASPECT_ COEFFICIENT _SOLSTICE*PI/180.0))); 

NEW _LINE(2); 

PUT("Radiator Area is "); 

SET COL(60); 

PUT(RADIATOR_AREA,FORE= >5,AFT= >3,EXP= >0); 

PUT(" meters*2"); 


189 


NEW _LINE(1); 


PUT(OUTH, "Radiator Area is "); 

SET COL(OU TT. 33); 

PUT(OUTH,RADIATOR_AREA,FORE= >5,AFT= >2,EXP= > 0); 
PUT(OUTH,” meters*2"); 

NEW_LINE(OUTH,1); 


PUT _LINE(" AEE Oe Me a a RR OR Re Re Ne ee) 


NEW _LINE(2); 


$ 


-- temperature during equinox calculation 


STOP; 
VIDEO.CLEAR_ SCREEN; 


TEMPERATURE EQUINOX: =(THERMAL DISSIPATION 


/(RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN?*EFFICIENCY *RADIATOR_AREA))**0.25; 
NEW _LINE(2); 
PUT("Temperature at Equinox is Full Power"); 
SET _COL(60); 
PUT(TEMPERATURE EQUINOX,FORE= >5,AFT= >2,EXP= >0); 
PUT(" kelvin"); 


PUT(OUTH,"Temperature at Equinox is Full Power"); 

SET _COL(OUTH,55); 

PUT(OUTH, TEMPERATURE EQUINOX,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” kelvin”); 

NEW LINE(OUTH,1); 


TEMPERATURE EQUINOX_CELCIUS:= TEMPERATURE EQUINOX-273.15; 
NEW JEINEC): 

PUT("Temperature at Equinox (celcius)is "); 

SET_COL(60); 

PUT(TEMPERATURE EQUINOX CELCIUS,FORE= >5,AFT=>2,EXP=>0); 
PUT(" celcius”); 


PUT(OUTH, "Temperature at Equinox (celcius) Full Power is "); 

SET COL(OUTH,5S); 

PUT(OUTH, TEMPERATURE EQUINOX_CELCIUS,FORE= >5,AFT=>2,EXP= > 0); 
PUT(OUTH,” celcius”); 

NEW_LINE(OUTH,2); 


if TEMPERATURE EQUINOX_CELCIUS >= 5.0 
and TEMPERATURE EQUINOX _CELCIUS <= 37.0 then 
NEW EINE): 
PUT_LINE("Temperature during equinox non eclipse period is within "); 
PUT_LINE("the prescribed limits of 5 to 37 degrees celcius. No "); 
PUT _LINE(“auxiliary heating is required! "); 
PUT_LINE(OUTH, "Temperature during equinox non eclipse period is within "); 
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PUT_LINE(OUTH, "the prescribed limits of 5 to 37 degrees celcius. No "); 
PUT _LINE(OUTH, “auxiliary heating is required! "); 
NEW_LINE(OUTH,]); 

elsif TEMPERATURE EQUINOX CELCIUS < 5.0 then 
NEW_LINE(2); 
PUT_LINE(* Temperature is to low auxiliary heaters will be required”); 
PUT_LINE(OUTH, "Temperature is to low, auxiliary heaters will be required"); 
NEW _ LINE(OUTH,?2); 

end if; 

NEW_LINE(2); 

err ta EEE EES ELE EEE EA EERE EERE EERE KH AER AA EET) 


NEW _LINE(3); 


e 
> 


STOP; 
VIDEO.CLEAR_ SCREEN; 


-- Equilibrium Temperature calculation 


NEW _LINE(2); 

PUT_LINE("When batteries provide partial power, heat dissipation "); 
PUT _LINE(“and equilibrium temperature during eclipse is "); 
new_line(2); 


EQUILIBRIUM _ TEMPERATURE: =((THERMAL DISSIPATION*PERCENT PARTIAL POWER) 
/((RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN*RADIATOR_AREA))**0.25; 


NEW _LINE(1); 

SET_COL(45); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE= >5,AFT= >2,EXP= >0), 
PUT(" degrees kelvin"); 


PUT(OUTH, "Equilibrium Temperature Partial Power"); 

SET _COL(OUTH,S55); 

PUT(OUTH, EQUILIBRIUM _TEMPERATURE,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” degrees kelvin"); 

NEW_LINE(OUTH, 1); 


new_line(2); 
PI } I ee ee ee eee TEE ELSES TEESE EELS EEE TERRE EET EEE EEE) 


NEW _LINE(3); 


> 


-- Time Constant Calculation 
STOP; 
VIDEO.CLEAR SCREEN; 


TIME_CONSTANT: =(MASS_RADIATOR_PLUS_EQUIPMENT*RADIATOR_SPECIFIC_HEAT) 
/(4.0*RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN 
*RADIATOR_AREA*EQUILIBRIUM_TEMPERATURE**3.0); 
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NEW _LINE(2); 

PUT("Time Constant is "); 

SET _COL(50); 

PUT(TIME CONSTANT,FORE= >7,AFT= >0,EXP= >0); 
PUT(" seconds"); 
TIME_CONSTANT_MINUTES:=TIME_CONSTANT/60.0; 
NEW _LINE(2); 

PUT("Time Constant Minutes is "); 

SET _COL(50); 

PUT(TIME CONSTANT MINUTES,FORE= >5,AFT= >2,EXP= >0); 
PUT(" minutes”); 


PUT(OUTH, "Time Constant is "); 

SET COL(OUTH,SS); 

PUT(OUTH,TIME_CONSTANT,FORE= >7,AFT= >0,EXP= >0); 
PUT(OUTH,” seconds”); 

NEW_LINE(OUTH,1); 

PUT(OUTH, "Time Constant Minutes is "); 

SETZCOE(50); 

PUT(OUTH,TIME CONSTANT _MINUTES,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” minutes”); 

NEW _LINE(OUTH, 1); 


NEW_LINE(2); 

PUT LIN E789 4 665 6A A A Ae ee ES AE A He a A er 
NEW _LINE(2); 

STOP; 

VIDEO.CLEAR_SCREEN; 


elsif DRUM_SPINNER = TRUE then 
NUMBER _ THERMAL EMITTING_FACES:=1.0; 
THERMAL DISSIPATION: =(PAYLOAD_POWER*PERCENT_PAYLOAD_ POWER _DISSIPATION 
+ HOUSEKEEPING POWER*HOUSEKEEPING PERCENT _POWER_DISSIPATION); 
NEW _LINE(2); 
PUT("Thermal Dissipation is "); 
SET _COL(60); 
PUT(THERMAL DISSIPATION, FORE= >5,AFT= >2,EXP= >0); 
PUT(" Watts"); 


PUT(OUTH,"Thermal Dissipation is "); 

SET_COL(OUTH,55); 

PUT(OUTH, THERMAL DISSIPATION, FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” Watts”); 

NEW _LINE(OUTH,1); 


-- Radiator Area calculation 
-- RADIATOR_HEIGHT, 
-- SOLAR_ARRAY DIAMETER, 
NEW UINE(Z)- 
PUT _LINE(" #2264 ot seo ek he ee ek A He i kk oe oe a A a sea Se oe ea) 


NEW _LINE(2); 


FOZ 


PUT("Please enter Solar Array Diameter in meters"); 

NEW _LINE(1); 

SET_COL(15); 

GET DATA(SOLAR_ ARRAY DIAMETER); 

VIDEO.CLEAR_ SCREEN; 

NEW _LINE(1); 

PUT("Solar Array Diameter is "); 

SET_COL(S5); 

PUT(SOLAR_ARRAY DIAMETER,FORE= >5,AFT= >4,EXP= >0); 
PUT(" meters"); 


PUT(OUTH, "Solar Array Diameter is "); 

SET _COL(OUTH,54); 

PUT(OUTH,SOLAR_ ARRAY DIAMETER,FORE= >5,AFT=>3,EXP=>0); 
PUT(OUTH," meters"); 

NEW_LINE(OUTH, 1); 


RADIATOR _HEIGHT:=THERMAL DISSIPATION/(SOLAR_ARRAY DIAMETER 
*((PI*RADIATOR_ EMITTANCE. EOL*STEFAN BOLTZMANN 
*RADIATOR_TEMPERATURE**4.0*EFFICIENCY)-(SOLAR_ABSORBTANCE EOL 
*SOLAR_INTENSITY_EQUINOX 
*COS(SOLAR_ASPECT_COEFFICIENT_EQUINOX*PI/180.0)))); 

NEW _LINE(2): 


PUT("Radiator Height is "); 

SEL COL(5S); 

PUT(RADIATOR_ HEIGHT,FORE= >5,AFT= >4,EXP=>0); 
PUT(" meters"); 


PUT(OUTH, "Radiator Height is "); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_HEIGHT,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," meters"); 

NEW LINE(OUTH,1); 


RADIATOR_AREA:=RADIATOR_HEIGHT*PI*(SOLAR_ARRAY_DIAMETER/2.0)**2.0; 
new_line(1); 

PUT("Radiator Area (Spin Stabilized) is "); 

SET _COL(S55); 

PUT(RADIATOR_AREA,FORE= >5,AFT= >4,EXP= >0); 

PUT(" meters*2"); 


PUT(OUTH, "Radiator Area is "); 

SET _COL(OUTH,SS); 

PUT(OUTH,RADIATOR_AREA,FORE= >5,AFT= >2,EXP= >0); 
Ee t(OUTH,” meters”2"); 

NEW_LINE(OUTH, 1); 
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NEW _LINE(2); 


PUT LIN E( 72 4 i tok A AAA A RAR AAA AA Be AOA A eo te eee 


NEW _LINE(2); 
-- temperature during equinox calculation 


PUT("Please enter a value for Radiator Efficiency (usually around 0.9)"); 
NEW LINE(2); 

GET DATA(EFFICIENCY); 

NEW _LINE(2); 

PUT LINE ftt**tt tenets ee ae care aac 
NEW _LINE(2); 

PUT("EFFICIENCY"); 

NEW _LINE(2); 

SET_COL(50); 

PUT(EFFICIENCY,FORE= >4,AFT= >2,EXP=>0); 

NEW _LINE(3); 


b 


STOP; 


VIDEO.CLEAR_ SCREEN; 


TEMPERATURE EQUINOX: =(THERMAL DISSIPATION 
/((RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN*EFFICIENCY 
*RADIATOR_HEIGHT*SOLAR ARRAY DIAMETER*PI))**0.25; 

NEW _LINE(2); 

PUT("Temperature at Equinox is "); 

SET COL(60); 

PUT(TEMPERATURE EQUINOX,FORE= >5,AFT= >2,EXP= > 0); 

PUT(" kelvin"); 


PUT(OUTH, "Temperature at Equinox is "); 

SET COL(OUTH,55); 

PUT(OUTH, TEMPERATURE EQUINOX,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," kelvin"); 

NEW _LINE(OUTH, 1); 


TEMPERATURE EQUINOX _CELCIUS:= TEMPERATURE EQUINOX-273.15; 
NEW _LINE(2); 

PUT("Temperature at Equinox (celcius) is "); 

SET _COL(60); 

PUT(TEMPERATURE EQUINOX _CELCIUS,FORE= >5,AFT= >2,EXP= >0); 
PUT(" celcius"); 


PUT(OUTH, "Temperature at Equinox (celcius) is "); 

SET COL(OUTH,55); 

PUT(OUTH, TEMPERATURE _EQUINOX_CELCIUS,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” celcius”); 

NEW _LINE(OUTH, 1); 
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iehehMPERATURE EQUINOX CELCIUS >= 5.0 
and TEMPERATURE EQUINOX CELCIUS <= 37.0 then 
NEW _LINE(2); 
PUT_LINE("Temperature during equinox non eclipse period is within "); 
PUT_LINE(“the prescribed limits of 5 to 37 degrees celcius. No "); 
PUT_LINE(“auxiliary heating is required! "); 
PUT_LINE(OUTH, "Temperature during equinox non eclipse period is within "); 
PUT_LINE(OUTH, "the prescribed limits of 5 to 37 degrees celcius. No "); 
PUT_LINE(OUTH, "auxiliary heating is required! "); 
NEW_LINE(OUTH,2); 

elsif TEMPERATURE EQUINOX CELCIUS < 5.0 then 
NEW _LINE(2); 
PUT_LINE(" Temperature is to low auxiliary heaters will be required"); 
PUT_LINE(OUTH, "Temperature is to low, auxiliary heaters will be required”); 
iNew LINE(OUTH,2); 

end if; 

NEW LINE(2); 

gc ce EE ee Rk a ak ka eR EK”) 


NEW _LINE(3); 


* 
bd 


SLOP; 
Pe EO.CLEAR SCREEN; 


-- Equilibrium Temperature calculation 


NEW _LINE(2); 

PUT_LINE("When batteries provide partial power, heat dissipation "); 
PUT _LINE("and equilibrium temperature during eclipse is "); 
new_line(2); 


EQUILIBRIUM TEMPERATURE: =((THERMAL_DISSIPATION*PERCENT PARTIAL_POWER) 
((RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN 
*RADIATOR HEIGHT*SOLAR ARRAY DIAMETER#*PI))**0.25; 


SET _COL(45); 
PUT(EQUILIBRIUM_TEMPERATURE,FORE= >5,AFT= >2,EXP= >0); 
PUT(" degrees kelvin"); 


PUT(OUTH, "Equilibrium Temperature Partial Power Supplied"); 
SET_COL(OUTH,S5S); 

PUT(OUTH, EQUILIBRIUM TEMPERATURE, FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” kelvin"); 

NEW_LINE(OUTH, 1); 


new_line(2); 
PUT OTe Gla stat ts 52h oss eat ahs 2 tcc eee oe eae ak A he ok ea ai ok sak te a oe ea ak ke EE” |; 
NEW_LINE(3); 


-- Time Constant Calculation 
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STOP; 
VIDEO.CLEAR SCREEN; 


TIME CONSTANT:=(MASS_ RADIATOR PLUS EQUIPMENT*RADIATOR_ SPECIFIC HEAT) 
/(4.0*RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN 
*RADIATOR_ HEIGHT*SOLAR ARRAY DIAMETER*PI 
*EQUILIBRIUM TEMPERATURE**3.0); 

NEW _LINE(2); 

PUT("Time Constant is "); 

SET COL(SS); 

PUT(TIME CONSTANT,FORE= >5,AFT= >2,EXP= >0); 

PUT(" seconds"); 

TIME CONSTANT MINUTES:=TIME CONSTANT/60.0; 

NEW LINE(2); 

PUT("Time Constant Minutes is "); 

SET _COL(S50); 

PUT(TIME CONSTANT _MINUTES,FORE= >5,AFT=>2,EXP= >0); 

PUT(" munutes"); 


PUT(OUTH, "Time Constant is "); 

SET -COL(OUTH,53); 

PUT(OUTH,TIME CONSTANT,FORE= >7,AFT= >0,EXP= >0); 
PUT(OUTH," seconds”); 

NEW_LINE(OUTH,1); 

PUT(OUTH,"Time Constant Minutes is "); 

SET COL(outh,55); 

PUT(OUTH,TIME CONSTANT MINUTES,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” minutes”); 

NEW_LINE(OUTH, 1); 


NEW _LINE(2); 

PUT LINE(* ae ae a aa ee ee ee a ale adodson siavh asians oct Rada taleciatagla yh Folate 
NEW _LINE(2); 

STOP; 

VIDEO.CLEAR_ SCREEN; 


end if; 


PUT _LINE("For the case of radiative cooling find ’C’ assuming t=0.0 "); 
PUT_LINE("this happens when the equinox temperature is less than the "); 
PUT_LINE(“calculated equilibrium temperature”); 


if (TEMPERATURE EQUINOX-EQUILIBRIUM_ TEMPERATURE ) <_ 5.0 then 
EQUILIBRIUM TEMPERATURE: =EQUILIBRIUM_ TEMPERATURE/1.0146; 
NEW _LINE(3); 
PUT_LINE("THE AMOUNT OF POWER PROVIDED DURING ECLIPSE IS TO CLOSE TO"); 
PUT _LINE("FULL POWER SO A FUDGE FACTOR OF 1.0146% HAS BEEN SUBTRACTED"); 
PUT _LINE("TO EQUILIBRIUM TO PREVENT A COTH NUMERIC ERROR."); 
NEW _LINE(3); 

end if; 
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CONST: =2.0*(ARCCOTH(TEM PERATURE_EQUINOX/EQUILIBRIUM TEMPERATURE) 
-ARCCOT(TEMPERATURE_ EQUINOX/EQUILIBRIUM_TEMPERATURE)); 


NEW_LINE(2); 

PUT("For radiative cooling constant ‘C’ when t=0.0 is "); 
SET_COL(60); 

PUT(CONST,FORE= >3,AFT= >6,EXP= >0); 


PUT(OUTH, "Radiative cooling constant ‘C’ when t=0.0 is "); 
SET_COL(OUTH,S55S); 

PUT(OUTH,CONST,FORE= >3,AFT= >4,EXP=>0); 
NEW_LINE(OUTH, 1); 


NEW _LINE(2); 

PUT _LINE("The next portion of this program is an iterative approach to "); 

PUT _LINE("find the temperature after equinox for an equinox period )"); 

PUT LINE("of 1.2 hours (72 minutes or 4,320 seconds)"); 

NEY LINE(1); 

PUT_LINE("The purpose of this iteration is to bracket an Eclipse Time "); 

PUT LINE("of 72 minutes. For example we want one value above (80 minutes) "); 
PUT_LINE("and one value below (68) minutes a good starting temperature "); 
PUT_LINE("is 273.0 degrees kelvin. "); 

NEW _LINE(2); 


STOP; 
VIDEO.CLEAR SCREEN; 


< <EQUINOX_ONE> > 


PUT_LINE("Please enter an AFTER EQUINOX TEMPERATURE guess in degrees kelvin "); 
NEW _LINE(3); 
SET COL (10); 
GET DATA(EQUINOX_TEMP_ ONE); 
VIDEO.CLEAR_ SCREEN; 
if EQUINOX_TEMP_ONE <= EQUILIBRIUM_TEMPERATURE then 
PUT LINE (“Condition would not occur in real life please try again"); 
NEW_LINE(1); 
PUT("Enter a value greater than "); 
PUT(EQUILIBRIUM_TEMPERATURE,FORE= >4,AFT= >2,EXP= >0); 
NEW _LINE(3); 
goto EQUINOX_ONE; 
else 
TIME ECLIPSE ONE: =(2.0*(ARCCOTH(EQUINOX_TEMP_ONE/EQUILIBRIUM_TEMPERATURE) 
-~-ARCCOT(EQUINOX_TEMP_ONE/EQUILIBRIUM_TEMPERATURE))-CONST) 
*TIME CONSTANT MINUTES; 
PUT("Temperature Input is "); 
SET _COL(S50); 
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PUT(EQUINOX_TEMP_ONE,FORE= >5,AFT=>2,EXP=>0); 
PUT(" degrees kelvin"); 


NEW LINE(2); 

PUT("For radiative cooling Eclipse Time is "); 

SET COL(60); 

PUT(TIME ECLIPSE ONE,FORE= >5,AFT=>2,EXP= >0); 
PUT(" minutes"); 


new_line(2); 
PUT LINE("Is the calculated eclipse time close to 72 minutes +/- 10 minutes "); 
PUT_LINE("Remember if this value is above 72 minutes then the next value "); 
PUT_LINE("should be below 72 minutes, or vice versus. "); 
PUT_LINE("To accept this eclipse time Enter *Y’ for yes and ’N’ for no“); 
if ABS(CTIME ECLIPSE ONE-ECLIPSE TIME MINUTES) > 10.0 then 
NEW _LINE(2); 
PUT_LINE("CALCULATIONS SHOW THAT ECLIPSE FOR TEMPERATURE IS MORE THAN 10 
MINUTES"); 
PUT_LINE("DIFFERENCE FROM THE 72 MINUTE STANDARD GEOSYNCHRONOUS ECLIPSE 
TIME "); 
PUT_LINE("RECOMMEND INPUT A ’N’ TO RE-CALCULATE A NEW ECLIPSE TIME"); 


put _lime( "#8 a RR A RE a 
end if; 
NEW EINE); 
GET_CHARACTER(TAKE); 
if TAKE = ’Y’ or TAKE = ’y’ then 
TAKE := ’N’ ; 
VIDEO.CLEAR_SCREEN; 
goto EQUINOX_TWO; 
else 
VIDEO.CLEAR_SCREEN; 
PUT_LINE("Please enter a new temperature for the equinox temperature "); 
goto EQUINOX_ONE; 
end if; 


STOP; 
VIDEO.CLEAR_ SCREEN; 


PUT _LINE("Please enter a new after equinox temperature guess in degrees kelvin"); 
end if; 


< <EQUINOX_TWO> > 
NEW JLINE@): 
PUT("First Iterative Eclipse Time for linear approximation is "); 
SET_COL(60); 
PUT(TIME ECLIPSE ONE,FORE= >5,AFT= >2,EXP= >0); 
PUT(" minutes"); 
NEW LINE); 
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PUT("First Iterative Temperature is "); 

Ser COL(50); 

PUT(EQUINOX_TEMP ONE,FORE= >5,AFT= >2,EXP=>0); 
PUT(" degrees kelvin”); 

new_line(2); 


PUT _LINE("Please enter a new after equinox temperature guess in degrees kelvin"); 

NEW _LINE(1); 

GET _DATA(EQUINOX_TEMP_ TWO); 

if EQUINOX_TEMP_TWO <= EQUILIBRIUM TEMPERATURE then 
VIDEO.CLEAR_ SCREEN; 
PUT LINE (“Condition would not occur in real life please try again”); 
NEW_LINE()); 
PUT("Enter a value greater than "); 
PUT(EQUILIBRIUM_ TEMPERATURE,FORE= >4,AFT= >2,EXP= >0); 
NEW _LINE(3); 
goto EQUINOX _TWO; 
else 
VIDEO.CLEAR_ SCREEN; 
TIME ECLIPSE TWO:= (2.0*(ARCCOTH(EQUINOX_TEMP_TWO/EQUILIBRIUM_ TEMPERATURE) 
-ARCCOT(EQUINOX_TEMP_TWO/EQUILIBRIUM_TEMPERATURE))-CONST) 
*TIME CONSTANT_MINUTES; 

PUT("First Iterative Eclipse Time for linear approximation 1s ”); 

SET _COL(60); 

POUTCTIME ECLIPSE ONE,FORE= >5,AFT=>2,EXP=>0); 

PUT(" minutes”); 

NEW _LINE(2); 

PUT("First Iterative Temperature is ”); 

SET COL(50); 

PUT(EQUINOX_TEMP_ONE,FORE= >5,AFT= >2,EXP=>0); 

PUT(" degrees kelvin”); 

fey LINE(2); 

PUT("Second Iterative Eclipse Time for linear approximation is "); 

SET_COL(60); 

PUT(TIME ECLIPSE TWO,FORE= >5,AFT= >2,EXP= >0); 

PUT(" minutes”); 

new_line(2); 

PUT("Second Iterative Temperature is "); 

SET_COL(50); 

PUT(EQUINOX_TEMP_TWO,FORE= >5,AFT= >2,EXP=>0); 

PUT(" degrees kelvin"); 

new_line(2); 

if ABS(TIME ECLIPSE _TWO-ECLIPSE TIME MINUTES) > 10.0 then 
NEW_LINE(2); 
PUT_LINE("CALCULATIONS SHOW THAT ECLIPSE FOR TEMPERATURE IS GREATER THAN 

10 MINUTES"); 

PUT_LINE("RECOMMEND INPUT A ’N’ TO RE-CALCULATED A NEW ECLIPSE TIME"); 


put line( _ 2h 6 2 8 8 2. 2 9 2A a 2 2 OK A COR aA AC a OK Ca A I 2 EO 2 OI CA A A A I A A A A A A RE I RR I I AEE) + 
end if; 
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PUT_LINE("Is the calculated eclipse time close to 72 minutes +/- 10 minutes”); 
PUT_LINE("Remember if this value is above 72 minutes then the next value"); 
PUT LINE("should below 72 minutes”); 
PUT_LINE("To accept this eclipse time Enter ’Y’ for yes and ’N’ for no"); 
SET_ COLES); 
GET _CHARACTER(TAKE); 
VIDEO.CLEAR SCREEN; 
if TAKE = ’Y’ or TAKE = ’y’ then 
if TIME ECLIPSE ONE = 72.0 then 
TEMPERATURE AFTER EQUINOX := EQUINOX _TEMP_ONE; 
goto TAE; 
elsif TIME ECLIPSE TWO = 72.0 then 
TEMPERATURE AFTER _EQUINOX := EQUINOX _TEMP_TWO; 


goto TAE; 
elsif TIME ECLIPSE ONE < 72.0 and TIME ECLIPSE TWO > 72.0 then 
TAKE := ’N’; 


goto STOP_ITERATION; 

elsif TIME ECLIPSE ONE > 72.0 and TIME ECLIPSE TWO < 72.0 then 
TARE 3="N-= 
goto STOP_ITERATION; 

elsif TIME ECLIPSE ONE < 72.0 and TIME ECLIPSE TWO < 72.0 then 
PUT_LINE("BOTH TIME VALUES ARE BELOW 72.0 MINUTES TRY AGAIN"); 
TAKE? =) Ne, 
goto EQUINOX _TWO; 

elsif TIME ECLIPSE ONE > 72.0 and TIME ECLIPSE TWO > 72.0 then 
PUT_LINE("BOTH TIME VALUES ARE ABOVE 72.0 MINUTES TRY AGAIN"); 


TAKE := ’N’ ; 
goto EQUINOX_TWO; 
end if; 


else 
VIDEO.CLEAR_SCREEN; 
PUT_LINE("Please enter a new temperature in order to bracket a 72 minute eclipse time"); 
TAKE := °N’ ; 
goto EQUINOX _TWO; 
end if; 
end if; 
-- CASE OF RADIATIVE HEATING 


< <STOP ITERATION > > 


TEMPERATURE_AFTER_ EQUINOX: =ABS(((TIME ECLIPSE _ONE-ECLIPSE_TIME_MINUTES) 
/(TIME_ECLIPSE_ ONE-TIME ECLIPSE TWO)) 
*(EQUINOX TEMP ONE-EQUINOX TEMP TWO) 
-EQUINOX_TEMP_ ONE); 
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<<TAE> > 


NEW_LINE(OUTH, 1); 

PUT(OUTH, "First Iterative Time for linear approximation is "); 

Sec OL(OUTH,SS); 

Pe OUTH, TIME ECLIPSE ONE,FORE= >5,AFT=>2,EXP=>0); 
PUT(OUTH,"” minutes"); 

NEW_LINE(OUTH,1); 


PUT(OUTH,"First Iterative Temperature is "); 

SET COL(OUTH,S5S); 

PUT(OUTH,EQUINOX_TEMP_ONE,FORE= >5,AFT= >2,EXP= > 0), 
PUT(OUTH," degrees kelvin"); 

new_line(OUTH, 1); 


PUT(OUTH, "Second Iterative Time for linear approximation is "); 

SET COL(OUTH, S55); 

Pe MOUTH, TIME ECLIPSE TWO,FORE= >5,AFT=>2,EXP=>0); 
PUT(OUTH," minutes”); 

new_line(OUTH, 1); 

PUT(OUTH, "Second Iterative Temperature is "); 

SET COL(OUTH,5S5S); 

PUT(OUTH,EQUINOX_TEMP_ TWO,FORE= >5,AFT= >2,EXP= >0); 


new_line(OUTH, 1); 


PUT ("Temperature after Equinox is "); 
SED COL(50); 
PUT(TEMPERATURE_ AFTER EQUINOX,FORE= >5,AFT= >2,EXP= >0); 


PUT (OUTH, "Temperature after Equinox is "); 

SET COL(OUTH,55); 

PUT(OUTH, TEMPERATURE AFTER EQUINOX,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," kelvin"); 

NEW _LINE(OUTH,?2); 


NEW LINE(2); 


POT LINE" 2 2h ik aie ic oie oc 2k afc oc ac oie ae 2k ake ic akc akc af akc akc ac akc af 2k afc oc ak ac a ac ic ac afc 2c akc oc akc ae akc 2c aie 2c ak ae 2k ac ic 2k ac 2c aie ac akc 2k ac 2k a ac ac a ac akc ok ") 


NEW _LINE(2); 


bd 


STOP; 

end HEAT; 

procedure WARM_UP (THERMAL DISSIPATION : in out FLOAT; 
RADIATOR_SPECIFIC_HEAT : in out FLOAT; 
RADIATOR EMITTANCE EOL : in out FLOAT; 
RADIATOR_AREA : in out FLOAT; 
MASS RADIATOR_PLUS_ EQUIPMENT : in out FLOAT; 
EFFICIENCY : in out FLOAT; 


TEMPERATURE AFTER EQUINOX _ : in out FLOAT; 
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NUMBER_THERMAL EMITTING FACES: in out FLOAT) is 


OPERATING TEMPERATURE : FLOAT :=278.0;-- degrees kelvin 
TIME CONSTANT MINUTES, 


CONST, 

TIME COOLING, 

TIME HEATING : FLOAT ; 

NEW_ TEMPERATURE INTEGER? 
begin 


VIDEO.CLEAR_ SCREEN; 

PUT_LINE("Now we will determine the time it takes for the spacecraft to”); 
PUT_LINE("reach a specified operating temperature after eclipse. Default”); 
PUT_LINE("operating temperature is specified as 278.0 degrees Kelvin or”); 
PUT _LINE("5 degrees celcius."); 

new_line(1); 

PUT_LINE(" DEFAULT VALUES FOR OPERATING PARAMETERS ARE"); 
PUT("Radiator(s) Dissipate "); 

SET COLEGO); 

PUT(THERMAL DISSIPATION,FORE= >5,AFT= >2,EXP= >0); 

PUT(" watts"); 

NEW LINE(1); 


PUT("EFFICIENCY"); 

SET COL(50); 

PUT(EFFICIENCY,FORE= >5,AFT= >2,EXP= > 0); 
NEW _LINE(1); 


PUT("RADIATOR_EMITTANCE EOL’); 

SET _COL(50); 

PUT(RADIATOR_EMITTANCE_EOL,FORE= >5,AFT= >2,EXP= > 0); 
NEW_LINE(1); 


PUT("MASS_RADIATOR_PLUS EQUIPMENT"); 

SET_COL(S0); 

PUT(MASS_RADIATOR_ PLUS EQUIPMENT,FORE= >5,AFT= >2,EXP= > 0); 
PUT(" kgs"); 

NEW _LINE(1); 


PUT("RADIATOR_SPECIFIC_HEAT"); 

SET _COL(S0); 

PUT(RADIATOR_ SPECIFIC _HEAT,FORE= >5,AFT= >2,EXP=>0); 
PUT("(watts*sec)\(kg*Kelvin) "); 

NEW _LINE(1); 


PUT("Radiator Area is "); 

SET_COL(S50); 

PUT(RADIATOR_AREA,FORE= >5,AFT= >2,EXP= >0); 
PUT(" meters’2”); 
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NEW _LINE(1); 


PUT("Temperature after equinox is "); 

SET _COL(50); 

PUTCTEMPERATURE_ AFTER EQUINOX,FORE= >5,AFT= >2,EXP= >0); 
PUT(" kelvin"); 

Beny SLINE(2); 


PUT("Desired operating temperature after equinox is "); 

SET _COL(S0); 

PUT(OPERATING TEMPERATURE, FORE= >5,AFT= >2,EXP= > 0); 
PUT(" kelvin"); 

NEW _LINE(1); 


PUT_LINE("The Radiator Heat Dissipation may be changed if desired”); 
PUT _LINE("this value enter a ‘y’ for YES. If you wish to change the value”), 
PUT _LINE("enter a ‘n’ for NO and the value you enter will be used in "); 
put_line(" further calculations”); 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for the Radiator Heat Dissipation "); 
NEW _LINE(3); 
PUT _LIN Ee see a sacieciciaioiictioticiioiiciiciciiac ic iain aca ac ORI ACREAGE AR) 
NEW LINE(3); 
GET DATA(THERMAL DISSIPATION); 
PUT("Radiator Heat Dissipation is "); 
SET _COL(60); 
PUT(THERMAL DISSIPATION, FORE => 6, AFT => 2, EXP => 0); 
NEW _LINE(1); 
else 
VIDEO.CLEAR_ SCREEN; 
end if; 
NEW _LINE()); 


PUT _LINE("The default operating temperature after equinox 1s 5 degrees celcius"); 
PUT_LINE("or 278 degrees kelvin. If you wish to change this value enter a”); 
PUT_LINE("‘y’ for YES. To accept the default value enter an ‘n’ for NO changes”); 
NEW_LINE(2); 


GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for operating temperature after equinox "); 
NEW_LINE(3); 
PUT TOs eer ce ek Ae a eco Te ee Kee” 
NEW_LINE(3); 
GET DATA(OPERATING_TEMPERATURE); 
PUT("Desired operating temperature 1s "); 
SET_COL(60); 
PUT(OPERATING_ TEMPERATURE, FORE => 6, AFT => 2, EXP => Q); 


e 
b] 
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NEW _LINE()); 
else 

VIDEO.CLEAR SCREEN; 
end if; 


-- Equilibrium Temperature calculation 


PUT(OUTH,"Radiator(s) Dissipate "); 

SET COL(OUTH,55); 

PUT(OUTH, THERMAL DISSIPATION, FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” watts”); 

NEW_LINE(OUTH, 1); 


PUT(OUTH,"Efficiency”); 

SET COL(OUTH,55); 

PUT(OUTH,EFFICIENCY,FORE= >5,AFT= >2,EXP= >0); 
NEW_LINE(OUTH, 1); 


PUT(OUTH, "Radiator Emittance”); 

SET COL(OUTH,5S55); 

PUT(OUTH,RADIATOR_ EMITTANCE EOL,FORE= >5,AFT=>2,EXP=>0); 
NEW_LINE(OUTH, 1); 


PUT(OUTH, "Mass Radiator Plus Equipment”); 

SET_COL(OUTH,55); 

PUT(OUTH,MASS RADIATOR _ PLUS EQUIPMENT,FORE= >5,AFT= >2,EXP= > 0); 
PUT(OUTH,” kgs"); 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "Radiator Specific Heat"); 

SET COL(OUTH,55); 

PUT(OUTH,RADIATOR_ SPECIFIC _HEAT,FORE= >5,AFT= >2,EXP= > 0); 
PUT(OUTH, "(W*s)/(kg*Kelvin) "); 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "Radiator Area is *); 

SET_COL(OUTH,55); 

PUT(OUTH,RADIATOR_AREA,FORE= >5,AFT= >2,EXP= > 0); 
PUT(OUTH,” meters*2"); 

NEW_LINE(OUTH, 1); 


PUT(OUTH, "Desired operating temperature after equinox is "); 

SET COL(OUFH,55): 

PUT(OUTH, OPERATING TEMPERATURE, FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” kelvin”); 

NEW _LINE(OUTH, 1); 


EQUILIBRIUM_TEMPERATURE: =(THERMAL _DISSIPATION/ 
(RADIATOR_EMITTANCE EOL*STEFAN BOLTZMANN?*EFFICIENCY *RADIATOR_AREA))**0.25; 
NEW_LINE(2); 
PUT("Equilibrium Temperature”); 
SET COL(50); 
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PUT(EQUILIBRIUM_ TEMPERATURE, FORE= >7,AFT= >2,EXP= >0); 
PUT(" kelvin"); 
STOP; 


if (EQUILIBRIUM_TEMPERATURE-TEMPERATURE_ AFTER EQUINOX) < 5.0 then 
EQUILIBRIUM_TEMPERATURE: = 1.0146*EQUILIBRIUM TEMPERATURE; 
NEW _LINE(3); 7 
PUT_LINE("THE AMOUNT OF POWER PROVIDED DURING ECLIPSE IS TO CLOSE TO’); 
PUT_LINE("FULL POWER SO A FUDGE FACTOR OF 1.0146% HAS BEEN ADDED TO’); 
PUT_LINE("EQUILIBRIUM TO PREVENT A TANH NUMERIC ERROR."); 

end if; 


PUT("Radiative Heating ‘C’ assuming t=0.0 1s "); 

CONST: =2.0*(ARCTANH(TEMPERATURE AFTER EQUINOX/EQUILIBRIUM_TEMPERATURE))- 
(ARCTAN(TEMPERATURE AFTER EQUINOX/EQUILIBRIUM TEMPERATURE))), 

SET _COL(48); 

PUT(CONST,FORE= >7,AFT= >4,EXP= >0); 

NEW _LINE(1); 


PUT(OUTH, "Equilibrium Temperature Heating After Eclipse"); 

SET COL(OUTH,S5S5); 

PUT(OUTH,EQUILIBRIUM TEMPERATURE,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH,” kelvin"); 

new_line(OUTH, 1); 


-- Time Constant Calculation 


TIME CONSTANT: =(MASS_RADIATOR_PLUS EQUIPMENT*RADIATOR_ SPECIFIC HEAT) 
/(4.0*RADIATOR_ EMITTANCE EOL*EFFICIENCY*STEFAN BOLTZMANN 
*RADIATOR_AREA*EQUILIBRIUM_TEMPERATURE**3.0); 

NEW _LINE(2); 

PUT("Time Constant Heating After Eclipse is "); 

SET_COL(50); 

PUT(TIME CONSTANT,FORE= >7,AFT= >2,EXP= >0); 

PUT(" seconds"); 

NEW _LINE(2); 


PUT(OUTH,"Time Constant Heating After Eclipse 1s"); 

SET _COL(OUTH,54); 

PUT(OUTH, TIME CONSTANT,FORE= >6,AFT= >2,EXP= >0); 
PUT(OUTH,"” seconds"); 

NEW _LINE(OUTH, 1); 


TIME CONSTANT_MINUTES:=TIME_CONSTANT/60.0; 

PUT("Time Constant is "); 

Sea -COL(50); 

PUT(TIME CONSTANT _MINUTES,FORE= >7,AFT= >2,EXP= >0); 
PUT(" minutes”); 

NEW _LINE(2); 
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PUT(OUTH, "Time Constant Heating After Eclipse is"); 

SET COL(OUTH,55); 

PUT(OUTH,TIME_CONSTANT_MINUTES,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," minutes"); 

NEW _ LINE(OUTH,1); 


PUT("Temperature After Equinox"); 

SET_COL(S50); 

PUT(TEMPERATURE AFTER EQUINOX,FORE= >7,AFT= >2,EXP= >0); 
PUT(" kelvin"); 

NEW_LINE(2); 


PUT("Equilibrium Temperature”); 

SET_COL(S50); 

PUT(EQUILIBRIUM_TEMPERATURE,FORE= >7,AFT= >2,EXP= >0); 
PUT(" kelvin"); 

NEW _LINE(2); 


NEW _LINE(OUTH,1); 

PUT(OUTH, "Radiative Cooling Constant when t=0.0"); 
SET COL(OUTH,55); 

PUT(OUTH,CONST,FORE= >3,AFT= >4,EXP= >0); 
NEW_LINE(OUTH, 1); 


NEW _LINE(1); 

PUT("Operating Temperature"); 

SET COL(S0); 

PUT(OPERATING TEMPERATURE,FORE= >7,AFT= >2,EXP= >0); 
PUT(" kelvin"); 

new_LINE(2); 


PUT(OUTH, "Operating Temperature Satellite"); 

SET COL(OUTH,55); 

PUT(OUTH,OPERATING TEMPERATURE,FORE= >5,AFT= >2,EXP= >0); 
PUT(OUTH," kelvin"); 

NEW LINE(OUTH, 1); 


TIME_HEATING: = ((2.0*(ARCTANH(OPERATING_ TEMPERATURE/EQUILIBRIUM_ TEMPERATURE) 
-ARCTAN(OPERATING_TEMPERATURE/EQUILIBRIUM_TEMPERATURE)))-CONST) 
*TIME CONSTANT MINUTES; 


NEW _LINE(2); 

PUT("Radiative heating after Eclipse "); 

SET _COL(50); 

PUT(TIME HEATING,FORE= >7,AFT= >2,EXP= >0); 
PUT(" minutes”); 

NEW_LINE(2); 


PUT(OUTH, "Time Constant"); 


SET_COL(OUTH,55); 
PUT(OUTH,TIME_CONSTANT_MINUTES,FORE= >5,AFT= >2,EXP= >0); 
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PUT(OUTH," minutes”); 


NEW _LINE(OUTH,1); 


PUT(OUTH, "Time Radiative heating after Eclipse"); 


SET COL(OUTH,55); 


PUT(OUTH, TIME HEATING,FORE= >5,AFT= >2,EXP= >0); 


PUT(OUTH," minutes”); 


NEW_LINE(OUTH,1); 


STOP; 


end WARM_UP; 


begin 


CREATE(OUTH,NAME= > "THERMAL.DAT"); 


PRINT_HEADER; 
DUAL SPIN 


OPERATING DATA 


HEAT 


WARM_UP 


(DRUM_SPINNER); 


(BATTERY_LOAD, 

DRUM_SPINNER, 

RADIATOR _SPECIFIC_HEAT, 

RADIATOR EMITTANCE EOL, 

MASS RADIATOR PLUS EQUIPMENT, 
EFFICIENCY, 

NUMBER THERMAL EMITTING FACES, 
PAYLOAD POWER, 

ECLIPSE_TIME); 


(BATTERY LOAD, 


DRUM_ SPINNER, 
RADIATOR_AREA, 

PAYLOAD POWER, 
TEMPERATURE_ AFTER EQUINOX, 
THERMAL DISSIPATION, 
ECLIPSE_TIME); 


(THERMAL DISSIPATION, 


RADIATOR_SPECIFIC_HEAT, 
RADIATOR EMITTANCE EOL, 
RADIATOR_AREA, 

MASS RADIATOR PLUS EQUIPMENT, 
EFFICIENCY, 
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TEMPERATURE AFTER EQUINOX, 
NUMBER THERMAL EMITTING FACES); 


CLOSE(OUTH); 


STOP; 

NEW _LINE(2); 

PUT_LINE("DATA FOR THIS DESIGN RUN IS LOCATED IN THE FOLLOWING FILE"); 
NEW _LINE(1); 

PUT LINE(C >> >> >> >>> > > o> 2 oF ee THERMAL AY), 
NEW S20NE(2): 

PUT_LINE("TO KEEP DATA FROM BEING ERASED ON NEXT RUN"); 
PUT_LINE("USE DOS COMMAND REN (RENAME) "); 

NEW EINE): 

PUT_LINE("EXAMPLE - REN THERMAL.DAT THERMAL.INI"); 
PUT_LINE("The .INI could be your initials”); 

NEW JEINEG): 


end THERMAL; 
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D. ARRAY THERMAL CONTROL 


-- Title : Thermal Characteristics 

-- Author : David Lashbrook 

-- Date : 15 February 1992 

-- Revised : 30 March 1992 

-- Compiler : OPENADA EXT 

-- Description : This procedure determines the thermal characteristics for 


-- solar arrays in geosynchronous orbits. 


with TEXT_10, GETDATA, GENERIC_ELEMENTARY_ FUNCTIONS, VIDEO; 
use TEXT IO , GETDATA ; 


procedure ARRAY THERMAL CONTROL is 


package FLOAT _INOUT is new FLOAT_IO(FLOAT); 

use FLOAT INOUT; 

package INTEGER_INOUT is new INTEGER_IOUINTEGER); 

use INTEGER _INOUT; 

package BOOLEAN INOUT is new ENUMERATION _JO(BOOLEAN); 

use BOOLEAN INOUT; 

package GEF _INOUT is new GENERIC_ELEMENTARY_FUNCTIONS(FLOAT); 
use GEF INOUT; 


OKAY : BOOLEAN := TRUE; 
DRUM_SPINNER : BOOLEAN := FALSE; 
be 

y; 

iN, 

n, 

TAKE, 

CHAR : CHARACTER ; 

If 

DECISION, 

J : INTEGER ; 

PI : FLOAT := 3.14159; 

x ; FLOAT; 


OUTATC :-FILE_TYPE; 


procedure PRINT HEADER 1s 
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begin 
VIDEO.CLEAR SCREEN-SET UEINEG. 
NEW_LINE(2); 
SET _COL(10); 
PUT_LINE("This program walks through a ARRAY THERMAL Characteristics "); 
SET, COLD): 
PUT _LINE("for a solar powered geosynchronous satellite."); 
SET _COL(10); 
PUT _LINE("All pertinent data will be saved to a file called ARRAYTC.DAT"); 
NEW _LINE; 
end PRINT HEADER; 


procedure DUAL SPIN (DRUM_SPINNER: in out BOOLEAN) is 
begin 
SET_COL(10); 
PUT LINE ("Is your spacecraft Spin Stabilized "); 
SET _COL(15); 
GET _CHARACTER(char); 
if CHAR = ’Y’ or CHAR = ’y’ then 
DRUM_SPINNER:=TRUE; 
if DRUM_SPINNER = TRUE then 
VIDEO. CLEAR SCREEN:SET EINE). 
SET COL(10); 
PUT _LINE("Satellite is Spin Stabilized"), 
NEW _LINE(OUTATC, 1); 
PUT _LINE(OUTATC," Satellite is Spin Stabilized"); 
PUT _LINE(OQUTAT EC, **P**2 ttt tnt te >< + * 2 uaa 
NEW_LINE(OUTATC, 1); 
NEW _LINE(2); 
PUT LIN EQ*##**## Se RA EE EERE ERE RT en ee nn 
end if; 
else 
VIDEO.CLEAR SCREEN;SET_ LINE(1); 
SET _COL(10); 
PUT LINE("Satellite is Three Axis Stabilized"); 
NEW_LINE(OUTATC, 1); 
PUT_LINE(OUTATC, "Satellite is Three Axis Stabilized"); 
PUT LINE(OUTAT C1088 te ee ee) 
NEW_LINE(OUTATC, 1); 
NEW_LINE(2); 
PUT LIN E(*# #486 46486645 EE ER EEE ETE EE ae eee ee 
end if; 
end DUAL SPIN; 


procedure SOLAR ARRAY TEMPERATURE (DRUM _SPINNER : in out BOOLEAN) is 


STEFAN BOLTZMANN : FLOAT := 5.67E-08; 
SOLAR ASPECT COEFFICIENT SOLSTICE — : FLOAT := 23.5; 
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SOLAR_ASPECT_ COEFFICIENT EQUINOX : FLOAT := 0.0; 


CELL_EMITTANCE_FRONT : FLOAT := 0.8; 

CELL EMITTANCE BACK : FLOAT := 0.7; 

SOLAR_INTENSITY WINTER SOLSTICE : FLOAT := 1397.0; -- W/m*2 
SOLAR_INTENSITY SUMMER SOLSTICE : FLOAT := 1311.0; -- W/m*2 
SOLAR_INTENSITY VERNAL EQUINOX : FLOAT := 1362.0; -- W/m*2 
SOLAR_INTENSITY_AUTUMNAL EQUINOX : FLOAT := 1345.0; -- W/m*2 
CELL EFFICIENCY : FLOAT := 0.14; 

PACKING FACTOR : FLOAT := 0.95; 

AVG _SOLAR_CELL_ABSORBTANCE : FLOAT := 0.8; 


WINTER_SOLSTICE_OPERATING TEMPERATURE, 
SUMMER SOLSTICE OPERATING TEMPERATURE, 
VERNAL EQUINOX OPERATING TEMPERATURE, 
AUTUMNAL EQUINOX_OPERATING TEMPERATURE, 
EFFECTIVE SOLAR_CELL_ABSORBTANCE, 
FRONT_ARRAY_ AREA, 


BACK ARRAY AREA Oy. ee 
CHANGE SOLAR : INTEGER ; 
begin 


PUT _LINE("This portion of the design uses the following values as listed below:"); 
NEW_LINE(1); 

PUT_LINE(" ay 
NEW _LINE(1); 

PUT("Solstice Angle"); 

pier sCOLR(SS); 

PUT(SOLAR_ ASPECT COEFFICIENT SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 

Ewan decrees"); 


NEW LINE(); 

PUT("Equinox Angle"); 

SET COL(55); 

PUT(SOLAR_ASPECT COEFFICIENT _EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
met degrees"); 


NEW _LINE(1); 

PUT("Cell Emittance Front"); 

SET _COL(55); 

PUT(CELL_ EMITTANCE FRONT,FORE= >3,AFT= >3,EXP=>0); 


NEW LINE(1); 

PUT("Cell Emittance Back"); 

pet COL(SS); 

PUT(CELL_ EMITTANCE BACK,FORE= >3,AFT= >3,EXP= >0); 


NEW _LINE(1); 
PUT("Solar Intensity Winter Solstice”); 
SET_COL(SS); 
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PUT(SOLAR INTENSITY WINTER SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" W/m*2"); 


NEW _LINE(1); 

PUT ("Solar Intensity Summer Solstice"); 

SET_COL({S5); 

PUT(SOLAR_INTENSITY_ SUMMER _SOLSTICE,FORE= > 4,AFT= >2,EXP=>0); 
PUT(" W/m*2"); 


NEW _LINE(1); 

PUT("Solar Intensity Vernal Equinox”); 

SET _COL(5S); 

PUT(SOLAR_INTENSITY_VERNAL EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(" W/m*2"); 


NEW _LINE(1); 

PUT("Solar Intensity Autumnal Equinox"); 

SET “COL(35); 

PUT(SOLAR_INTENSITY_AUTUMNAL EQUINOX,FORE= >4,AFT= >2,EXP= >0), 
PUT(" W/m*2"); 


NEW _LINE(1); 

PUT("Cell Efficiency”); 

SET _COL(SS); 

PUT(CELL EFFICIENCY ,FORE= >2,AFT=>4,EXP= >0); 


NEW LINE(1); 

PUT("Packing Factor"); 

SET COL(S5); 

PUT(PACKING FACTOR,FORE= >2,AFT= >4,EXP= >0); 


NEW LINE(1); 

PUT(" Average Solar Cell Absorbtance"); 

SET -COL(55); 

PUT(AVG SOLAR CELL ABSORBTANCE,FORE= >2,AFT= >4,EXP= >0Q); 
NEW _LINE(2); 


PUT _LINE("If you desire to CHANGE any of the listed values please enter "); 
PUT _LINE("a ‘y’ for YES otherwise enter a ‘n’ for NO"); 
GET CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR := N; 
VIDEO.CLEAR_ SCREEN; 


<<VALUE> > 


PUT _LINE("Please enter the number value to the nght of the value you "); 

PUT _LINE("wish to CHANGE. (DEFAULT VALUES ARE IN PARENTHESIS)"); 
new_line; 

PUT_LINE("Cell emittance Back is not used for spin stabilized spacecraft 
put_ LINE("---------------------------------------------------------2---- 222-222 2- 222 E): 
PUT_LINE("SOLAR_ASPECT_COEFFICIENT_ SOLSTICE [1]"); 


calculations"); 
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PUT_LINE("SOLAR_ASPECT COEFFICIENT EQUINOX (2)); 


PUT_LINE("CELL_ EMITTANCE FRONT (3]"); 
PUT_LINE("CELL_ EMITTANCE BACK (4]"); 
PUT_LINE("SOLAR_INTENSITY WINTER SOLSTICE (5]"); 
PUT_LINE("SOLAR_ INTENSITY SUMMER SOLSTICE [6]"); 
PUT_LINE("SOLAR_INTENSITY VERNAL EQUINOX (7]"): 
PUT_LINE("SOLAR_INTENSITY AUTUMNAL EQUINOX (8]"); 
PUT_LINE("CELL EFFICIENCY [9}"); 
PUT_LINE("PACKING FACTOR (10]"); 

PUT LINE("AVG SOLAR CELL ABSORBTANCE (11]"); 


GET _INTEGER(CHANGE SOLAR); 
VIDEO.CLEAR_SCREEN; 


case CHANGE SOLAR is 
when 1 => 

VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for SOLAR_ASPECT_ COEFFICIENT SOLSTICE’); 
NEW _LINE(3); 
GET DATA(SOLAR_ASPECT_ COEFFICIENT SOLSTICE); 
NEW _LINE(1); 
PUT("Solstice Angle”); 
SET COL(60); 
PUT(SOLAR_ASPECT COEFFICIENT SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 
PUT(" degrees"); 
NEW _LINE(3); 


when 2 = > 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for SOLAR_ASPECT_COEFFICIENT_EQUINOX"); 
NEW_LINE(3); 
GET DATA(SOLAR_ASPECT_ COEFFICIENT EQUINOX); 
NEW _LINE(1); 
PUT("Equinox Angle"); 
SEM@COL(55); 
PUT(SOLAR_ ASPECT COEFFICIENT EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(" degrees”); 
NEW_LINE(3); 


when 3 => 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for CELL EMITTANCE FRONT"); 
NEW. LINE(3); 
GET_DATA(CELL_ EMITTANCE FRONT); 
NEW_LINE(1); 
PUT("Cell Emittance Front "); 
SET COL(S5); 
PUT(CELL EMITTANCE FRONT,FORE= >4,AFT= >2,EXP= >0); 
NEW_LINE(3); 
when 4 => 
VIDEO.CLEAR_ SCREEN; 
INE Ny SIelINIE (3): 
PUT("Please enter a value for CELL_ EMITTANCE BACK"); 
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GET DATA(CELL_EMITTANCE BACK), 
NEW _LINE(1); 
PUT("Cell Emittance Back "); 
SER COL{SS); 
PUT(CELL EMITTANCE BACK,FORE= >4,AFT= >2,EXP=>0); 
NEW _LINE(3); 
when 5 => 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for SOLAR_INTENSITY_WINTER_SOLSTICE"); 
NEW LINE(3); 
GET DATA(SOLAR_INTENSITY WINTER SOLSTICE); 
NEW _LINE(1); 
PUT("Solar Intensity Winter Solstice”); 
SET COL(55); 
PUT(SOLAR_INTENSITY_WINTER_SOLSTICE,FORE= >4,AFT= >2,EXP= >0); 
POUUC Wim 20); 
NEW _LINE(3); 
when 6 => 
VIDEO.CLEAR SCREEN; 
PUT("Please enter a value for SOLAR_INTENSITY_SUMMER_ SOLSTICE"); 
NEW _LINE(3); 
GET DATA(SOLAR_INTENSITY SUMMER_SOLSTICE); 
NEW _LINE(1); 
PUT("Solar Intensity Summer Solstice"); 
SET COL(S5); 
PUT(SOLAR_INTENSITY SUMMER _SOLSTICE,FORE= >4,AFT=>2,EXP=>0); 
PUT(" W/m*2"); 
NEW _LINE(3); 


when 7 => 
VIDEO.CLEAR_SCREEN; 
PUT("Please enter a value for SOLAR_INTENSITY_VERNAL EQUINOX"); 
NEW _LINE(3); 
GET DATA(SOLAR_ INTENSITY VERNAL EQUINOX); 
NEW LINE(1); 
PUT("Solar Intensity Vernal Equinox"); 
SET COL(SS); 
PUT(SOLAR_INTENSITY_VERNAL EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT We mee) 
NEW SEINEG): 
when 8 = > 
VIDEO.CLEAR SCREEN; 
PUT("Please enter a value for SOLAR_INTENSITY AUTUMNAL EQUINOX"); 
NEW _LINE(3); 
GET DATA(SOLAR_ INTENSITY AUTUMNAL EQUINOX); 
NEW _LINE(1); 
PUT("Solar Intensity Autumnal Equinox"); 
SET_COL(S5); 
PUT(SOLAR_INTENSITY_AUTUMNAL EQUINOX,FORE= >4,AFT= >2,EXP=>0); 
PUT(" W/m*2"); 
NEW _LINE(3); 
when 9 => 
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VIDEO.CLEAR_ SCREEN; 

PUT("Please enter a value for CELL_ EFFICIENCY’); 
NEW_LINE(3); 

GET_DATA(CELL EFFICIENCY); 

NEW _LINE(1); 

PUT("Cell Efficiency”); 

SET _COL(S55); 

PUT(CELL_EFFICIENCY,FORE= >2,AFT= >4,EXP= >0); 
NEW _LINE(3); 


when 10 => 
VIDEO.CLEAR_ SCREEN; 
PUT("Please enter a value for PACKING FACTOR"); 
NEW LINE(3); 
GET_DATA(PACKING FACTOR); 
NEW LINE(1); 
PUT ("Packing Factor”); 
SET COL(55); 
PUT(PACKING FACTOR,FORE= >2,AFT=>4,EXP= >0); 
NEW_LINE(3); 


when 11 => 
VIDEO.CLEAR_SCREEN; 
PUT("Please enter a value for AVG SOLAR CELL ABSORBTANCE"); 
NEW LINE(3); 
GET DATA(AVG SOLAR_CELL_ ABSORBTANCE); 
NEW LINE(1); 
PUT("Average Solar Cell Absorbtance"); 
SET _COL(S55); 
PUT(AVG SOLAR CELL ABSORBTANCE,FORE= >2,AFT= >4,EXP= >0); 
NEW _LINE(3); 


when others = > 
VIDEO.CLEAR_SCREEN; 
PUT_LINE("Thank You for your input "); 
NEW _LINE(4); 
end case; 


CHAR := N; 
NEW _LINE(4); 
PUT_LINE("If you wish to change another value please enter a ‘y’ for YES"); 
PUT_LINE("otherwise enter a ‘n’ for NO "); 
GET _CHARACTER(CHAR); 
if CHAR = ’Y’ or CHAR = ’y’ then 
CHAR :=N; 
VIDEO.CLEAR_SCREEN,; 
goto VALUE; 
else 
VIDEO.CLEAR_ SCREEN; 
PUT_LINE("*UNDERSTAND NO MORE CHANGES"); 
NEW _LINE(3); 
end if; 
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else 
VIDEO.CLEAR SCREEN; 
PUT_LINE("UNDERSTAND DEFAULT VALUES WILL BE USED"); 
NEW _LINE(3); 

end if; 


NEW _ LINE(OUTATC,1); 

PUT(OUTATC,"Solstice Angle"); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLAR_ ASPECT COEFFICIENT SOLSTICE,FORE= >4,AFT=>2,EXP= > 0); 
PUT(OUTATC,” degrees"); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Equinox Angle”); 

SET COL(OUTATC,S5S); 

PUT(OUTATC,SOLAR_ASPECT_COEFFICIENT_EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(OUTATC," degrees”); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Cell Emittance Front”); 

SET _COL(OUTATC,55); 

PUT(OUTATC,CELL_EMITTANCE_FRONT,FORE= >3,AFT= >3,EXP= >0); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Cell Emittance Back”); 

SET COL(OUPATE,5S); 

PUT(OUTATC,CELL EMITTANCE BACK,FORE= >3,AFT=>3,EXP= >0); 


NEW _LINE(OUTATC,?2); 

PUT(OUTATC, "Solar Intensity Winter Solstice”); 

SET _COL(OUTATC,SS); 

PUT(OUTATC,SOLAR INTENSITY WINTER _SOLSTICE,FORE= >4,AFT=>2,EXP= >0); 
PUT(OUTATC,” W/m*2"); 


NEW _LINE(OUTATC,2); 

PUT(OUTATC, "Solar Intensity Summer Solstice”); 

SET COL(@UMAIC 55), 

PUT(OUTATC,SOLAR INTENSITY SUMMER _ SOLSTICE,FORE= >4,AFT= >2,EXP=>0); 
PUT(OUTATC,” W/m*2"); 


NEW _LINE(OUTATC,2); 

PUT(OUTATC, "Solar Intensity Vernal Equinox”); 

SET_COL(OUTATC,55); 

PUT(OUTATC,SOLAR_INTENSITY_VERNAL EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(OUTATC,” W/m*2"); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC,"Solar Intensity Autumnal Equinox"); 

SET COL(OUTATC,S5S5); 

PUT(OUTATC,SOLAR_INTENSITY_AUTUMNAL _ EQUINOX,FORE= >4,AFT= >2,EXP= >0); 
PUT(OUTATC,” W/m*2"); 
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NEW _LINE(OUTATC,?2); 

PUT(OUTATC, "Cell Efficiency"); 

SET _COL(OUTATC,55); 

PUT(OUTATC,CELL EFFICIENCY,FORE= >2,AFT= >4,EXP= >0); 


NEW _LINE(OUTATC,2); 

PUT(OUTATC,"Packing Factor"); 

SET_COL(OUTATC,S5S); 

PUT(OUTATC,PACKING FACTOR,FORE= >2,AFT= >4,EXP=>0); 


NEW _ LINE(OUTATC,2); 

PUT(OUTATC, "Average Solar Cell Absorbtance”"); 

SET_COL(OUTATC,S5S); 

PUT(OUTATC,AVG SOLAR CELL ABSORBTANCE,FORE= >2,AFT=>4,EXP=>0); 


VIDEO.CLEAR_SCREEN; 


EFFECTIVE SOLAR CELL ABSORBTANCE:= AVG SOLAR CELL _ABSORBTANCE 
-PACKING FACTOR*CELL EFFICIENCY; 

NEW _LINE(2); 

PUT("Effective Solar Cell Absorbtance is "); 

NEW _LINE(3); 

SEIscOL(55); 

PUT(EFFECTIVE SOLAR CELL ABSORBTANCE,FORE= >2,AFT= >4,EXP= >0); 


NEW_LINE(OUTATC,?2); 

PUT(OUTATC, "Effective Solar Cell Absorbtance is "); 

SET _COL(OUTATC,SS); 

PUT(OUTATC,EFFECTIVE SOLAR CELL ABSORBTANCE,FORE= >2,AFT= >4,EXP= >0); 


if DRUM_SPINNER = FALSE then 


NEW _LINE(4); 

PUT ("Please enter the FRONT solar cell array area in meters squared "); 
NEW _LINE(3); 

GET DATA(FRONT_ARRAY_ AREA); 

NEW _LINE(3); 

PUT("Front Array Area is "); 

set_col(55); 

PUT(FRONT ARRAY AREA,FORE= >3,AFT= >3,EXP=>0); 
EVIC m2"); 


NEW LINE(4); 

PUT("Please enter the BACK solar cell array area in meters squared "); 
NEW _LINE(3); 

GET DATA(BACK_ ARRAY AREA); 

VIDEO.CLEAR_ SCREEN; 

NEW _LINE(3); 

PUT("Front Array Area is "); 


a UE 


set_col(55); 

PUT(FRONT_ARRAY_ AREA,FORE= >3,AFT= >3,EXP= > 0); 
PUT(" m2"); 

NEW _LINE(2); 

PUT("Back Array Area is "); 

set_col(55); 

PUT(BACK ARRAY AREA,FORE= >3,AFT= >3,EXP=>0); 
PUT(C m2) 

NEW LINE(S); 

STOP; 


WINTER_SOLSTICE_OPERATING TEMPERATURE: =((EFFECTIVE SOLAR CELL _ABSORBTANCE 
*FRONT_ARRAY_ AREA 
*SOLAR_INTENSITY_WINTER_SOLSTICE 
*COS(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/180.0)) 


/(CELL_EMITTANCE FRONT*FRONT ARRAY AREA+CELL EMITTANCE BACK 
*BACK ARRAY _AREA)*STEFAN BOLTZMANN))**0.25; 


NEW _LINE(2); 

PUT("Winter Solstice Operating Temperature is "); 

SETCCOEOS): 

PUT(WINTER_ SOLSTICE OPERATING _TEMPERATURE,FORE= >2,AFT= >4,EXP= >0); 
PUT(" deg kelvin"); 


SUMMER_SOLSTICE OPERATING TEMPERATURE: =((EFFECTIVE SOLAR_CELL_ABSORBTANCE 
*FRONT_ARRAY_AREA 
*SOLAR_INTENSITY_SUMMER SOLSTICE 
*COS(SOLAR_ASPECT_COEFFICIENT_SOLSTICE*PI/180.0)) -- 0.0 degrees = 1.0 


/((CELL_EMITTANCE FRONT*FRONT ARRAY AREA+CELL EMITTANCE BACK 
*BACK ARRAY AREA)*STEFAN BOLTZMANN))**0.25; 


NEW LINE(2); 

PUT("Summer Solstice Operating Temperature is "); 

SETZEOE G5); 

PUT(SUMMER SOLSTICE OPERATING TEMPERATURE,FORE= >2,AFT= >4,EXP=>0); 
PUT(" deg kelvin"); 


VERNAL EQUINOX OPERATING TEMPERATURE: =((EFFECTIVE SOLAR CELL_ABSORBTANCE 
*FRONT_ ARRAY AREA 
*SOLAR_INTENSITY_VERNAL_ EQUINOX 
*COS(SOLAR_ASPECT_COEFFICIENT EQUINOX*PI/180.0)) -- 0.0 degrees = 1.0 


/(((CELL_EMITTANCE FRONT*FRONT_ARRAY AREA+CELL_ EMITTANCE BACK 
*BACK ARRAY _AREA)*STEFAN BOLTZMANN))**0.25; 


NEW LINE@): 

PUT("Vernal Equinox Operating Temperature is "); 

SETRACOLGS), 

PUT(VERNAL_ EQUINOX_OPERATING_TEMPERATURE,FORE= >2,AFT= >4,EXP=>0); 
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PUT(" deg kelvin"); 


AUTUMNAL EQUINOX OPERATING TEMPERATURE: =((EFFECTIVE SOLAR CELL _ABSORBTANC 
E 

*FRONT ARRAY AREA 

*SOLAR_INTENSITY_ AUTUMNAL EQUINOX 

*COS(SOLAR_ASPECT_COEFFICIENT EQUINOX*PI/180.0)) -- 0.0 degrees = 1.0 


/(CELL_ EMITTANCE FRONT*FRONT ARRAY AREA+CELL EMITTANCE BACK 
*BACK ARRAY AREA)*STEFAN BOLTZMANN))**0.25; 


NEW LINE(2); 

PUT("Autumnal Equinox Operating Temperature is "); 

Sei COL(S5); 

PUT(AUTUMNAL EQUINOX _OPERATING_TEMPERATURE,FORE= >2,AFT= >4,EXP= >0); 
PUT(" deg kelvin"); 

NEW _LINE(4); 


else 
-- AREA FOR A SPIN STABILIZED SPACECRAFT 
NEW LINE(2); 
PUT("Please enter the FRONT solar cell array area in meters squared "); 
NEW _LINE(4); 
GET DATA(FRONT_ARRAY_ AREA); 
NEW LINE(3); 
PUT("Front Array Area is "); 
set_col(55); 
PUT(FRONT_ARRAY_ AREA,FORE= >3,AFT= >3,EXP= >0); 
Eon m 2"); 


PaeeO.CLEAR SCREEN; 


WINTER SOLSTICE OPERATING TEMPERATURE: =((EFFECTIVE SOLAR CELL_ABSORBTANCE 
*SOLAR_INTENSITY_ WINTER SOLSTICE 
*COS(SOLAR_ASPECT COEFFICIENT SOLSTICE*PI/180.0)) 
/(CELL_EMITTANCE_FRONT*PI*STEFAN_BOLTZMANN))**0.25; 


NEW _LINE(2); 

PUT("Winter Solstice Operating Temperature is "); 

Sil COLGS); 

PUT(WINTER SOLSTICE OPERATING TEMPERATURE,FORE= >2,AFT= >4,EXP= >0); 
PUT(" deg kelvin"); 


SUMMER _ SOLSTICE OPERATING TEMPERATURE: =((EFFECTIVE SOLAR_CELL_ABSORBTANCE 
*SOLAR_ INTENSITY SUMMER SOLSTICE 
*COS(SOLAR_ASPECT COEFFICIENT _SOLSTICE*PI/180.0)) -- 0.0 degrees = 1.0 
/(CELL_EMITTANCE_FRONT*PI*STEFAN_BOLTZMANN))**0.25; 

NEW _LINE(2): 
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PUT("Summer Solstice Operating Temperature is "); 

SEIMCOL(GS); 

PUT(SUMMER SOLSTICE OPERATING TEMPERATURE,FORE= >2,AFT= >4,EXP=>0); 
PUT(" deg kelvin"); 


VERNAL EQUINOX_OPERATING_ TEMPERATURE: =((EFFECTIVE SOLAR CELL ABSORBTANCE 
*SOLAR_INTENSITY_VERNAL EQUINOX 
*COS(SOLAR_ ASPECT COEFFICIENT EQUINOX*PI/180.0)) -- 0.0 degrees = 1.0 
(CELL EMITTANCE FRONT*PI*STEFAN BOLTZMANN))**0.25; 

NEW _LINE(2); 

PUT("Vernal Equinox Operating Temperature is "); 

SET _COL(55); 

PUT(VERNAL EQUINOX OPERATING TEMPERATURE, FORE= >2,AFT= >4,EXP= >0); 

PUT(" deg kelvin"); 


AUTUMNAL EQUINOX OPERATING TEMPERATURE: =((EFFECTIVE SOLAR CELL ABSORBTANC 
E 
*SOLAR_INTENSITY_AUTUMNAL EQUINOX 
*COS(SOLAR_ASPECT COEFFICIENT EQUINOX*PI/180.0)) -- 0.0 degrees = 1.0 
((CELL_ EMITTANCE FRONT*PI*STEFAN BOLTZMANN))**0.25; 
NEW _LINE(2); 
PUT("Autumnal Equinox Operating Temperature is "); 
SET COLG5): 
PUT(AUTUMNAL EQUINOX OPERATING TEMPERATURE, FORE= >2,AFT= >4,EXP=>0); 
PUT(" deg kelvin"); 
NEW _LINE(3); 


end if; 
NEW_LINE(OUTATC,2); 
PUT(OUTATC,"Front Array Area is "); 
set cohKOUTATC,S5S); 
PUT(OUTATC,FRONT ARRAY AREA,FORE= >4,AFT= >2,EXP= >0); 
PUT(OUTATC.- m_2 ): 


NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Back Array Area is "); 

set_col(OUTATC,55); 

PUT(OUTATC,BACK ARRAY AREA,FORE= >4,AFT= >2,EXP= >0); 
PUI(OUTATG 3 nies): 


NEW _LINE(OUTATC,?2); 

PUT(OUTATC, "Winter Solstice Operating Temperature is "); 

SET COL(OUTATC,55); 

PUT(OUTATC,WINTER_ SOLSTICE OPERATING TEMPERATURE,FORE= >4,AFT= >2,EXP=>0); 
PUT(OUTATC,"” deg kelvin"); 


NEW_LINE(OUTATC,2); 


PUT(OUTATC,"Summer Solstice Operating Temperature is "); 
SET COL(OUTATE 55); 
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PUT(OUTATC,SUMMER SOLSTICE OPERATING TEMPERATURE,FORE= >4,AFT= >2,EXP=>0); 
PUT(OUTATC,” deg kelvin”); 


NEW_LINE(OUTATC,2); 

PUT(OUTATC, "Vernal Equinox Operating Temperature is "); 

SET _COL(OUTATC,S5S); 

PUT(OUTATC, VERNAL EQUINOX OPERATING TEMPERATURE,FORE= >4,AFT= >2,EXP= >0); 
PUT(OUTATC,” deg kelvin"); 


NEW LINE(OUTATC,2); 
PUT(OUTATC,” Autumnal Equinox Operating Temperature is "); 
SET_COL(OUTATC,S5S); 


PUT(OUTATC,AUTUMNAL_ EQUINOX _OPERATING_TEMPERATURE, FORE= >4,AFT= >2,EXP= > 0) 


PUT(OUTATC,” deg kelvin"); 
end SOLAR_ARRAY_ TEMPERATURE; 
begin 
CREATE(OUTATC,NAME= > "ARRAYTC.DAT’"); 
PRINT HEADER; 
DUAL SPIN (DRUM_SPINNER); 
SOLAR ARRAY TEMPERATURE (DRUM_SPINNER); 
CLOSE(OUTATC); 
STOP; 
NEW _LINE(2); 
PUT_LINE("DATA FOR THIS DESIGN RUN IS LOCATED IN THE FOLLOWING FILE"); 
ew LINE(2); 
PUT _LINE(" ARRAYTC.DAT "); 
NEW _LINE(2); 
PUT _LINE("TO KEEP DATA FROM BEING ERASED ON NEXT RUN"); 
PUT_LINE("USE DOS COMMAND REN (RENAME) "); 
NEW LINE(2); 
PUT _LINE("EXAMPLE - REN ARRAYTC.DAT ARRAYTC.INI"); 
PUT _LINE("The .INI could be your initials”); 


end ARRAY_THERMAL CONTROL; 
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E. UTILITY SUBPROGRAMS 


-- Title : GET DATA 

-- Author : David Lashbrook 
-- Date : 15 February 1992 
-- Revised : 30 March 1992 
-- Compiler : OPENADA EXT 


-- Description : Package gets data for floats, integers, characters 


package GETDATA is 

procedure GET DATA(X : out FLOAT); 

procedure GET_INTEGER(I : out INTEGER); 

procedure STOP; 

procedure GET _CHARACTER(CHAR : out CHARACTER); 
end GETDATA; 


SSS SSS SS SSeS SF Sees SSS SSS SSF ST SSF ST FF SSS TSF SKS TFT FST SFT SFTE8 TST ST FTF S28 SE STF S88 ST FSF S88 S88 SESE ST FF SFT SES [88288228 C88 =2892 2 


-- Author : David Lashbrook 
-- Date : 15 February 1992 
-- Revised : 30 March 1992 

-- Compiler : OPENADA EXT 


-- Descnption : Package Body gets data for floats, integers, characters 


with TEXT_IO, MATH_LIB, VIDEO; 
use TEA TIOe 


package body GETDATA is 


package FLOAT_INOUT is new FLOAT_IO(FLOAT); 

use FLOAT INOUT; 

package INTEGER _INOUT is new INTEGER IO(INTEGER); 
use INTEGER INOUT; 


xX : FLOAT ; 
CHAR : CHARACTER ; 
I : INTEGER ; 


procedure GET_DATA(X : out FLOAT) is 
begin 
loop 
begin 

SET COL(10); 
PUT_LINE("Enter the value as a real number with a decimal point"); 
SET _COL(15); 
PUT_LINE("(Depress CTRL*C to exit the program.)"); 
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SET_COL(10); 
GiET(X); 
SKIP_LINE; 
exit; 
exception 
when DATA ERROR = > 
SKIP_LINE; 
NEW LINE; 
SET_COL(10); 
PUT _LINE("Error.. You must enter the value as a real"); 
SET COL(10); 
PUT_LINE("number with a decimal point. ie 123.4"); 
SET_COL(10); 
PUT _LINE("Try again."); 
NEW LINE; 
end; 
end loop; 
end GET DATA; 


-- Reads an integer input from the keyboard 


procedure GET INTEGER(I : out INTEGER) is 
begin 
loop 
begin 
NEW _LINE(1); 
SET COL(10); 
PUT _LINE("Enter the value as an integer"); 
PUT_LINE("(Depress CTRL*C to exit the program.)"); 
SET_COL(10); 
GET(D; 
SKIP_LINE(1); 
exit; 
exception 
when DATA_ERROR = > 
SKIP_LINE; 
NEW _LINE; 
SET_COL(10); 
PUT_LINE("Error.. You must enter the value as a INTEGER"); 
SET_COL(10); 
PUT_LINE(" NO! decimal point. ie 123 "); 
SET _COL(10); 
PUT_LINE(” Please try again.”); 
NEW _LINE; 
end; 
end loop; 
end GET INTEGER; 


procedure STOP is 


N : INTEGER ; 
begin 
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SET (GOEUG), 
PUT("TO CONTINUE ENTER ANY INTEGER"); 
GET INTEGER(N), 
VIDEO.CLEAR SCREEN, 
end STOP; 


procedure GET CHARACTER(CHAR : out CHARACTER) 1s 
begin 
loop 
begin 
SET _COL(10); 
PUT LINEC Enter= Y for YES one): 
NEW _LINE(1); 
SET_COL(10); 
PUTSEINEC "N’ for NO"); 
SET COL(15); 
PUT_LINE("(Depress CTRL*C to exit the program.)"); 
SET _COL(10); 
GET(CHAR); 
SKIP_LINE; 
exit; 
exception 
when DATA_ERROR => 
SKIP_LINE; 
NEW _LINE; 
SET_COL(10); 
PUT_LINE("Error.. You must enter character"); 
SET _COL(10); 
PUT LINE("Try again."); 
NEW _ LINE; 
end; 
end loop; 
end GET CHARACTER; 


end GETDATA; 
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